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SUft’IARY 

Progran  LAU/OMS:JS2,R 

1.  This  Working  Paper  documents  revisions  to  the  ole*  0!!FTJS,R 
Computer  Model  (see  'Working  Paper,  OMFN’S  7^-77-10). 

2.  OMCHS2,R  documents  the  CRFATE  Computer  Progran  which 
simulates  the  operation  of  a single  F100PW100  complete  engine 
installed  in  an  F-15  aircraft.  It  has  improved  and  revised 
the  original  model,  OMENS, R by  adding  the  transportation 
costs  involved  in  the  maintenance  of  the  F100  engine.  An 
averaging  table  has  also  been  added  to  average  the  seed  runs 
if  more  than  one  seed  run  has  been  requested. 

3.  This  model  simulates  the  operation  of  a single  engine 
through  a very  long  period  of  future  time.  In  operating  over 
this  extended  period,  the  engine  must  be  removed  for  repair 
from  time  to  time.  Repairs  become  necessary  on  the  engine 
when  one  of  the  modules  fails  prematurely  or  whenever  it 
requires  replacement  of  an  internal  life-limited  part.  The 
model  tracks  all  the  engine  removals  and  all  replacements  of 
each  module  and  offending  life- limited  part  through  future 
simulated  time.  Records  are  kept  through  simulated  time  of 
the  number  of  removals  and  the  reasons  for  removal  for  each 
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module  and  for  the  engine.  Reasons  for  removal  include 
(1)  premature  failure  of  one  or  more  parts,  (2)  reaching  the 
scheduled  operating  time  limit,  or  (3)  being  screened  out 
due  to  the  opportunistic  maintenance  policy.  The  model  also 
computes  maintenance,  pipeline,  parts  costs,  and  transnortation 
costs  associated  with  the  forecasted  removals  and  aggregates 
the  costs  for  any  desired  life  cycle  period  (in  years)  to  aid 
in  selecting  that  optimal  maintenance  policy  which  produces 
the  least  total  cost. 
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Background 

1.  The  FlOOPWlOf)  engine  in  the  F-15  aircraft  can  be  sub- 
divided into  modules.  It  is  a relatively  new  engine  concept 
in  that  each  of  the  modules  can  be  individually  removed  and 
replaced  and  each  can  therefore  be  replaced,  purchased, 
stocked  and  repaired  separately  at  various  levels,  each 
module  as  a single  unit.  There  are  six  identifiable  modules 
to  date.  They  are  the  augmentor,  inlet  fan,  fan  drive 
turbine,  core  engine,  gearbox  and  high  pressure  turbine. 

Each  of  these  modules  has  a number  of  internal  life-limited 
parts  except  the  augmentor  which  has  no  life-limits,  '"he 
engine  has  been  broken  into  these  modules  to  facilitate  the 
removal  and  replacement  actions  and  to  manage  the  life  limits 
on  the  parts.  The  total  number  of  life-limited  parts  in  the 
entire  engine  affected  by  the  opportunistic  maintenance  policy 
is  41. 


2.  When  the  module  is  installed  and  operated,  as  part  of 
an  engine,  all  the  life-limited  parts  within  that  module  age 
according  to  the  flying  hour  rate  of  the  engine.  Management 
establishes  limits  on  how  many  cycles  (or  sometimes,  total 
operating  time  units)  the  parts  in  the  modules  may  accrue 
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before  they  must  be  replaced.  This  maximum  operating  time 
(MOT)  is  normally  stated  either  in  cycles  or  total  operating 
time  (TO17')  and  converted  into  its  engine  flying  hour  equiva- 
lents within  the  model  by  applying  an  actuarial  conversion 
factor  set  by  engine  management.  In  the  examples  shown  in 
this  program,  the  factor  was  set  at  the  F100  Factors  Meeting, 
17  August  1978. 

3.  The  life  limits  cause  a management  problem  since  they 
usually  are  not  set  at  equal  values  across  the  parts.  After 
one  or  more  parts  are  replaced,  the  ages  of  the  parts  become 
mixed.  Whenever  a part  reaches  its  life  limit,  the  engine 
must  be  removed  from  the  aircraft,  and  the  engine  must  be 
put  into  maintenance  where  the  module  containing  that  part 
must  be  removed.  If  the  parts  ages  are  mixed,  a large  number 
of  engine  and  module  remove,  replace,  and  repair  actions  is 
caused. 


4.  The  opportunistic  maintenance  policy  states  that  whenever 
an  engine  is  removed  for  repair  because  of  a problem  within  a 
module,  all  internal  life-limited  component  parts  of  all  the 
modules  should  be  considered  for  ppssible  replacement  at 
that  time,  based  on  how  close  they  are  to  their  individual 
MOTs.  This  may  cause  the  replacement  of  more  than  one  module 
for  each  engine  removal.  When  component  parts  are  replaced 
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opportunistically,  they  no  longer  cause  a near-future  module 
(and  corresponding  engine)  removal  for  that  component  replace- 
ment due  to  reaching  its  life  limit.  Thus,  the  number  of 
future  module  removals  for  repair  is  greatly  reduced  while 
the  number  of  spare  parts  used  is  increased.  Preliminary 
studies  have  shown  that  the  removal  rates  for  the  engine  and 
nodules  can  be  reduced  as  much  as  20  to  30%  by  appropriate 
selection  of  the  opportunistic  maintenance  policy.  See 
Working  Note,  XRS  77-7-1,  November  1977,  "A  Study  of  the 
r-100  PV.'-lOO  Kngino  Maintenance  and  Build  Policies." 

5.  This  Working  Paper  will  describe  the  logic  and  the 
computer  program  that  simulates  the  operation  of  a single 
F100PN100  engine  installed  in  an  F-15  aircraft.  The  model 
will  provide  long-run  forecasts  of  engine  and.  module  removals 
caused  by  failure  as  well  as  time  expiration  and  opportunistic 
replacement  of  the  internal  life- limited  parts.  The  model 
also  calculates  composite  (both  usage,  scheduled,  and  screened) 
engine  removals  per  1900  flying  hours  factors  and  their 
corresponding  NP.TS  rate  factors.  These  forecasts  will  be 
based  on  appropriate  input  failure  rates,  MOT  limits,  and 
screening  intervals  being  tested  for  the  opportunistic 
maintenance  policy.  This  model  is  a major  tool  for  use  in 
determining  the  expected  effectiveness  of  alternate  screening 
intervals,  and  its  use  will  help  the  analyst  in  establishing 
effective  policies  for  the  F100  engine. 
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Chapter  II 
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Meed  for  the  Model 

1.  When  attempting  to  establish  an  effective  opportunistic 
maintenance  policy,  one  must  determine  how  given  screening 
intervals  affect  the  future  repair  frequencies  for  the  engine 
and  its  modules.  A screening  interval  is  a predetermined, 
definite  time  period  immediately  preceding  an  MOT  limit.  If 
a part's  age  falls  within  the.  screening  interval  when  the 
module  is  in  repair  the  part  xvill  he  removed  opportunistically 
at  that  tine.  In  other  words,  if  the  part  is  close  enough  to 
its  maximum  operating  time  (MOT)  at  the  time  of  a module 
repair,  then  it  will  be  removed  and  replaced.  This  opportunis- 
tic action  will  preclude  the  later  removal  of  the  module 
merely  to  replace  this  part  when  it  would  finally  reach  its 
MOT.  In  general,  as  the  screening  interval  is  increased, 
more  parts  are  screened  out  with  each  module  removal  and 
fewer  module  removals  in  total  will  occur  over  the  given 
program  period.  At  the  same  time,  there  will  also  be  an 
increase  in  parts  replacements  since  they  would  not  have  been 
permitted  to  reach  their  full  lifetimes,  having  been  screened 
out  and  replaced  early.  See  Working  Note  XP.S  77-7-1,  "a 
Study  of  the  FIDO  PW100  Engine  Maintenance  and  Build  Policies" 
for  a graphic  description  of  the  impacts  of  an  opportunistic 
maintenance  policy  using  screening  intervals. 
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2.  This  Opportunistic  Maintenance  Engine  Simulation  model  — 
OMENS  II  — was  developed  in  order  to  forecast  future  engine 
removals,  module  remov  Is,  individual  parts  replacements,  and 
transportation  costs  as  a function  of  the  alternative  screening 
intervals  being  tested  for  possible  use  in  the  opportunistic 
maintenance  policy.  The  model  becomes  the  calculator  that 
helps  the  user  assess  the  probable  impact  of  each  screening 
interval . 

3.  OMENS  II  simulates  the  operation  of  a single  engine  through 
a very  long  period  of  future  time.  In  operating  over  this 
extended  period,  the  engine  must  be  removed  for  repair  from 
time  to  time.  Repairs  become  necessary  on  the  engine  when 

one  of  the  internal  components  either  fails  prematurely,  or 
reaches  its  maximum  operating  time.  The  model  tracks  through 
future  simulated  time  all  of  the  removals  and  replacements  of 
the  engine,  the  modules,  and  the  internal  component  parts. 
Failure  times  are  determined  by  making  random  number  draws 
from  lifetime  distributions  for  each  part.  When  new  parts 
are  installed  to  replace  removed  ones,  a time  to  failure  is 
determined  for  the  replacement  part  and  its  future  removal 
time  is  scheduled  in  the  model.  Records  are  kept  through 
simulated  time  on  the  number  of  removals  and  the  reason  for 
removal  for  each  part,  each  module,  and  the  engine.  Reasons 
for  parts  removals  include  premature  failure,  reaching  MOT, 
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reaching  tolerance,  or  being  screened  out  due  to  the  opportun- 
istic maintenance  policy.  (Tolerance  is  the  name  assigned  to 
an  opportunistic  removal  of  a part  when  it  appears  to  be 
close  to  a failure.  The  aircraft  mechanic  would  have  the 
ability  to  identify  impending  failure  of  a certain  portion  of 
parts  even  if  they  were  not  near  MOT,  nor  prematurely  "failed" 
but  worn  and  therefore  in  need  of  replacement) . 
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Chapter  III 


Computation  Logic 

1.  Program  LAU/0MENS2,R  is  a Monte  Carlo  simulation  model. 

It  produces  removals  per  1000  FH  for  the  engine  and  its 
modules,  man  hours  expended,  maintenance  analysis  and  pipe- 
line costs  for  the  engine  and  modules,  NRTS  rates,  parts 
costs,  transportation  costs,  and  total  costs. 

The  main  purpose  of  OMENS2,R  is  to  calculate  when  in  future 
simulated  time  each  part  will  drive  a module  (and  consequently 
engine)  removal  to  replace  the  part.  The  part  which  fails  or 
reaches  its  life  limit  is  then  replaced  after  making  suitable 
records  of  the  removal,  and  the  time  until  next  removal  for 
the  replacement  is  determined  by  making  a random  draw  from 
the  time-to-f ailure  distribution  for  that  part.  While  the 
engine  (or  module)  is  in  repair,  all  of  the  other  modules 
(or  parts)  which  have  not  failed  are  screened  to  see  whether 
they  are  close  enough  to  their  maximum  operating  time  (MOT) 
limits  so  that  it  is  economical  to  replace  them  at  this  time. 

If  a part  is  screened  out,  records  are  updated  recording 
which  part  was  replaced  and  why,  a replacement  part  is  then 
installed  and  its  time  to  next  failure  is  established  by  a 
random  number  draw  exactly  the  same  as  was  done  above  for  a 
failure.  The  removals  of  the  next  higher  assembly  module 
and/or  engine  are  also  recorded  by  the  model. 


7 


■ 


3.  The  model  maintains  two  counters  for  each  life- limited 
part.  One  counter,  JTTF(J),  keeps  track  of  time  remaining 
(in  flying  hours)  until  part  J is  forecasted  to  be  removed 
because  of  premature  failure.  The  other  counter,  JTTL(J), 
keeps  track  of  how  much  time  remains  until  part  J would  reach 
its  maximum  operating  time.  The  maximum  operating  time  is 
stated  in  the  input  in  either  total  operating  time  units  or 
in  cycles  both  of  which  are  converted  to  engine  flying  hours 
by  an  actuarial  conversion  factor. 

4.  The  simulation  clock  is  advanced  in  the  following  way. 

After  all  the  failure  times  (JTrnF(J)'s)  and  MOT  times  (JTTL(J)'s) 
have  been  established  for  all  J parts,  the  program  finds  the 
minimum  JTTF(J)  and  the  minimum  JTTI.(J),  and  the  lesser  of 
these  values  is  selected.  This  is  the  time  until  the  next 

most  imminent  event.  The  next  steps  in  the  progran  determine 
whether  this  minimum  occurs  in  the  current  report  period  and 
whether  on  one  or  more  than  one  part.  That  is,  will  there  be 
multiple  part  failures,  and  will  they  occur  in  the  present 
or  a future  reporting  period? 

5.  Following  the  determination  of  the  next  most  imminent 
event,  this  amount  of  time  is  subtracted  from  every  JTTF(J) 
and  JTTL(J)  and  from  the  time  remaining  until  the  end  of  the 
report  period,  and  it  is  added  to  the  system  clock.  The 
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subtractions  are  done  for  one  J part  at  a time  and  the 
addition  is  done  once  per  engine  removal.  After  all  the 
parts  have  been  updated,  reasons  for  the  removals  of  the 
parts  are  determined.  If  a part  failed  prematurely,  it 
is  classified  into  one  of  two  categories:  (1)  a usage 
removal  if  its  time  remaining  until  MOT,  JTTL(J),  is 
greater  than  its  screen  or  (2)  a U-Dep  (usage  to  be 
repaired  at  depot)  removal  when  its  time  remaining  until 
MOT,  JTTL(J),  is  less  than  or  equal  to  the  screen.  If  a part 
did  not  fail  but  its  time  remaining  is  less  than  or  equal  to 
its  tolerance  interval,  it  is  also  considered  as  a failure 
and  is  removed.  Tolerance  removals  are  those  parts  removals 
that  are  expected  to  be  detected  by  maintenance  personnel 
because  they  are  about  to  fail  and  some  symptom  will  be 
noticeable.  If  JTTL(J)  is  equal  to  zero,  this  means  that 
there  is  no  tine  remaining  until  MOT  and  the  removal  is 
classified  as  an  MOT  removal.  If  the  time  remaining  is 
greater  than  zero  but  is  less  than  or  equal  to  the  screen 
interval,  the  part  is  classified  as  screened  out. 

6.  Following  the  appropriate  tabulations  of  the  removal  of 
part  J,  the  nodules  containing  the  offending  parts  are 
identified  by  removal  codes.  There  is  a hierarchy  involved 
in  multiple  parts  removals  from  the  same  module.  If  multiple 


parts  are  removed,  all  for  usage  reasons,  the  module  is 
declared  a usage  removal.  If  the  module  removal  involved  a 
mixture  of  MOT  part  removals  and  usage  part  removals,  the 
module  is  classified  as  multiple  parts  with  at  least  one 
scheduled  removal. 

7.  After  completion  of  module  removal  classifications, 
another  portion  of  the  program  is  entered  to  determine  the 
engine  removal  disposition  and  code,  '"his  part  of  the 
program  adds  up  the  number  of  modules  removed  to  determine  if 
the  engine  is  to  be  MRTS  to  depot  as  a whole-up  engine  or 
not.  The  logic  is  stated  as  follows:  if  there  are  four  or 
more  offending  modules,  excluding  the  augmentor  and  accessories- 
2 but  including  the  core,  the  engine  is  NRT5  to  depot.  This 
is  called  the  Rule  of  4 Policy.  Since  this  logic  is  not 
firm,  the  program  enables  the  user  to  test  for  different 
values  other  than  4 and  so  the  policy  is  often  referred  to  as 
the  Rule  of  X,  where  X i3  limited  to  the  maximum  number  of 
modules  involved  in  the  engine. 

3.  The  next  portion  of  the  program  tallies  all  of  the 
removals  for  parts,  modules,  and  complete  engine  and  records 
the  disposition  of  each.  This  enables  the  output  tables  to 
be  processed  showing  engine  removals,  what  modules  drove  the 
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removals  and  what  parts  drove  the  modules.  Repair  disposi- 
tions are  also  determined  here,  i.e.  whether  the  modules  are 
repaired  at  base  or  depot. 

9.  The  process  described  above  is  carried  on  until  the 
entire  simulation  period,  I5IMYRS  (input  by  the  user) , is 
i cached.  Output  showing  the  number  of  screened  out  parts  by 
f Jdule  and  the  disposition  of  the  modules  is  made  period- 
J :ally  throughout  the  run  according  to  the  report  period, 
'IMPRD,  defined  at  input  time.  Other  more  detailed  output 
3 described  later  in  this  Working  Paper. 


4 1.  The  LAU/0MENS2 , R program  consists  of  two  other  files 

needed  for  a simulation  run.  The  main  file  contains  the 
program  logic  and  the  internal  data.  This  file  is  named 
LAU/0MENS2.S  and  is  the  source  program  file.  The  internal 
data  in  this  program  contains  all  the  names  and  indices  of 
the  engine  and  its  modules  and  all  the  various  life  limited 
parts.  This  data  also  has  all  the  actuarial,  pipeline,  and 
cost  factors  associated  with  each  component.  These  values 
such  as  NRTS  rates,  removal  rates,  cycle,  TOT  or  engine 
flying  hour  limits,  and  costs  are  those  given  in  the  Design 
Maintenance  Concept  or  in  various  other  official  projections 
approved  by  HQ  AFLC/LOP,  Wright-Patterson  AFB,  Ohio  45433. 

The  values  will  be  discussed  in  detail  in  Chapter  VI.  The 
program  logic  and  the  internal  data  combine  to  form  the 
OMENS 2 . S file  as  previously  stated.  This  file  is  then  com- 
piled into  an  object  deck  named  0MENS2.0.  This  object  file  is 
a binary  object  deck  of  the  source  program  (OMENS 2 . S ) . It  is 
already  compiled  so  the  program  does  not  have  to  recompile 
every  time  a simulation  run  is  needed. 


1 2 


actual  run  has 


l.  The  t^le  that  is  most  important  to  tho 
read  permission  and  is  called  LAU/0MENS2,R,R.  This  file  is 
listed  here  to  aid  in  the  explanation  of  the  variable  input 
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a. 

The  Variable  Input.  This  input 

is  found  in  line 

777.  This  line  contains  a line  of  data  with  input  that  can 


1 2 changed  by  the  program  user  as  appropriate.  Each  entry  is 
discussed  below  in  the  order  the  input  must  be  entered. 

(1)  M Rule.  The  first  entry  in  the  data  line  should 
be  the  X value  for  the  policy  Rule  of  X.  This  Rule  of  X states 
how  many  modules  must  be  in  need  of  repair  before  they  are  sent 
to  the  deoot  together  as  an  engine  NETS.  If  4 is  used 
as  in  the  example  below,  then  4 modules  (including  the  core 
and  excluding  the  augmentor  and  accessories-?)  must  he  in 
need  of  repair  in  order  to  necessitate  an  engine  NRTS. 


13 


Example.  7777#  4 , 0 , 450 , 450 , 4 50 , 450 , 450 , 450, 4 50 , 150 , 3 , 0 , 1 , 1 , 15 , 200 , 17 


(2)  KPI . This  is  the  second  entry  in  the  data  line. 

It  is  the  constant  or  percent  indicator  for  the  screen.  It 
can  take  on  only  one  of  two  values.  If  a constant  screening 
value  is  desired,  as  in  the  example  below,  then  a 0 should  be 
entered.  If  the  screen  desired  is  a percent  of  the  maximum 
operating  time,  a 1 should  be  entered. 

Example.  7777*4,0,450,450,450,450,430,450,150,450,3,0,1,1,15,200,17 

(3)  KPV (I) , 1=1, 2.  The  next  eight  values  represent 
the  screens  for  the  eight  modules.  They  are  either  constant 
screening  values  or  screening  values  expressed  as  a percentage 
of  MOT,  whichever  is  desired.  The  field  should  always  be 
three  numeric  characters.  If  a constant  450  screen  is 
desired  for  each  module  as  in  the  example  below,  eight  450 
values,  separated  by  commas,  should  be  input.  If  a 10 
percent  of  maximum  operating  time  (MOT)  screen  is  desired  for 
each  module,  eight  010  values,  separated  by  commas,  should  be 
input.  No  constant  screen  greater  than  099  or  percent  screen 
greater  than  100  will  be  accepted  as  valid  input. 

Example.  7777# 4 , 0 , 450 , 450 , 450 , 450 , 450 , 450 , 450 , 450 , 3 , 0 , 1, 1 , 15 , 200 , 17 
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A different  screening  value  for  each  module  is  allowed,  but 
the  screens  must  all  be  either  constant  values  or  percent  of 
MOT  values. 

The  module  order  for  variable  screen  entries  is  dictated  in 
the  program  logic.  Eight  values  are  needed  for  a screening 
policy,  whether  or  not  they  are  variable  screen  values.  The 
first  screen  value  entry  is  assigned  to  the  augmentor,  the 
second  is  assigned  to  the  accessories-l,  and  so  on,  through 
all  eight  identified  modules.  The  complete  module  order  is: 


(a) 

Augmentor 

(b) 

Accessories-l 

(with  life  limits) 

(c) 

Fan 

(d) 

Core 

(e) 

High  pressure 

turbine 

(f) 

Fan  drive  turbine 

(g) 

Cearbox 

(h) 

Accessories- 2 

(without  life  limits) 

(4)  ISMAX.  This  is  the  next  entry  in  the  data 
line  immediately  following  the  eight  screen  values.  It  is 
the  total  number  of  runs  desired,  and  it  can  take  on  any 
value  from  1 through  9.  This  value  determines  how  many 
simulation  runs  will  be  made  under  one  program  run  with  the 
same  data  in  line  7777.  In  the  following  example,  the  value 
is  3. 


15 


Example.  7777# 4 , 0 , 450 , 450 , 450 , 450 , 450, 450 , 450, 450, 3, 0, 1, 1, 15 , 200 , 17 


(5)  IP.  This  is  the  next  entry  in  the  data  line. 

It  is  the  print  indicator  and  dictates  either  a long  or  short 
form  of  printout  from  the  simulation  run.  If  a complete  long 
printout  is  desired  a 0 should  be  used  as  in  the  example 
below.  If  a summary  or  short  form  printout  is  desired,  a 1 
should  be  used. 

Example.  7777# 4 , 0 , 450 , 450 , 450 , 450 , 450, 450 , 450 , 450 , 3, 0 , 1, 1, 15 , 200 , 17 

(6)  K£.  This  next  entry  indicates  if  a standard  or 
random  seed  is  desired.  If  a standard  seed  is  desired  a 0 
should  be  used.  It  should  be  noted  here  that  if  a standard 
seed  is  used  there  is  no  point  in  generating  more  than  one 
identical  seed  run  and  thus  the  ISMAX  entry  (discussed  in 
number  4 above  as  how  many  runs  are  desired)  should  be  a 1. 

If  a random  seed  is  desired  as  in  the  example  shown  below,  a 
1 should  be  used. 

Example.  777714,0,450,450,450,450,450,450,450,450,3,0,1,1,15,200,17 

(7)  KW.  This  entry  dictates  whether  or  not  warmup 
is  desired.  If  it  is  desired  to  have  all  the  parts  start  out 
the  simulation  with  0 accumulated  age  (new  parts)  a 0 should 
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entered.  If  warmup  is  desired  (a  random  mixture  of  parts 
ages  to  start  the  simulation)  a 1 should  he  input  as  in  this 
example. 

Example . 7777# 4, 0 , 450 , 450 , 450 , 450 , 450 , 450 , 450 , 450 , 3, 0 , 1, 1 , 15 , 200 , 17 

(0)  LFCYC.  This  two-position  entry  is  the  life 
ycle  value  in  years  used  to  compute  the  objective  function, 

.e.  the  cost  function  over  a particular  life  cycle  period, 
n the  example  below,  15  years  is  illustrated. 

sample.  7777# 4 , 0 , 450 , 450 , 450 , 450, 450 , 450, 450 , 450 , 3, 0, 1, 1, 15,200,17 

(9)  SIMYRS.  This  entry  is  the  number  of  simulation 
;ars  desired  for  the  program  run.  In  the  example  below  200 
x ears  is  used.  The  entry  must  be  three  positions. 

Example.  7777# 4 , 0 , 450 , 450 , 450 , 450, 450 , 450 , 450 , 450 , 3 , 0 , 1, 1, 15 , 200 , 17 

(10)  MONUTR.  This  is  the  last  data  line  entry  and 
stands  for  the  monthly  utilization  rate  desired  on  the  engine 
in  flying  hours.  In  the  example  below,  17  flying  hours  per 
month  is  used.  The  entry  must  be  two  positions. 

Example.  7777# 4 , 0 , 450 , 450 , 450 , 450, 450 , 450 , 450 , 450 , 3 , 0 , 1, 1, 15 , 200 , 17 
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b.  The  RUN  Command . Following  the  variable  input 


changes  as  appropriate,  the  user  must  input  the  run  connand 
and  await  the  output  as  explained  in  the  following  chapter. 

c.  It  should  be  noted  that  the  program  is  built  to 
produce  ten  report  periods.  The  simulation  period  is  pro- 
duced by  taking  the  simulation  years  (SIMYRS) , multiplying 

by  the  monthly  utilization  rate  (MONUTR) , and  multiplying 

at 

that  by  12  (months/year) . Then  this  simulation  period  is 
divided  by  ten  to  yield  ten  report  periods  of  equal  length. 
To  change  the  number  of  report  periods,  the  source  program 
must  be  changed  and  recompiled.  This  cannot  be  done  without 
consulting  the  programmer  of  OMENS  II. 

3.  For  further  introduction  and  instructions  on  running 
OMENS 2 . R,  the  user  should  log  on  a terminal  and  call  for  a 
listing  of  OMENTEXT , R.  It  can  be  retrieved  under  SYSTEM? 
YFORT  OLD  OMENTEXT, R.  At  the  ready  * level  the  user  should 
simply  type  LIST. 
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Chapter  V 


* 


Output 

1.  The  complete  output  from  a run  of  program  LAU/OMRNS.R,R 
is  in  several  sections  as  follows: 

a.  Cross  Reference  Table. 

b.  Engine  Removals  Report  Period  Summary. 

c.  Engine  NETS  Analysis. 

d.  Module  Removals  Report  Period  Summaries. 

e.  Module  Removals  Summary. 

f.  Parts  Removal  Summaries. 

g.  Objective  Function  - Engine. 

h.  Objective  Function  - Modules. 

i.  Life-Limited  Parts  Replacements  Costs. 


L 
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j.  Objective  Function  Summary. 

k.  Screen,  NRTS  rate  and  Removals  Per  1000FH  Summary. 

l.  Averages  Summary. 

m.  Actuarial  Input  Data. 


2.  Sections  (a)  through  (k)  inclusive  will  be  printed  as 
output  if  the  long  printout  is  requested.  If  the  short 
form  printout  is  requested,  sections  a,  b,  c,  e,  j,  and  k 
are  printed  as  output.  Individual  output  sections  are 
discussed  in  the  following  paragraphs. 

3.  Cross  Reference  Table.  This  table  shows  the  index  number 
corresponding  to  the  module,  screen  interval  values  in  either 
constant  or  percent  form,  equivalent  value  in  engine  flying 
hours,  and  equivalent  months.  See  Table  1. 

a.  Module  Number.  This  is  the  numerical  index  assigned 
to  the  module  for  order  purposes.  The  modules  will  keep 
these  same  indices  throughout  the  printout. 

b.  Module  Nomenclature.  This  is  the  module  name  as  it 
will  appear  and  be  referred  to  throughout  the  printout. 

c.  Constant  or  % of  MOT.  This  nomenclature  choice  is 
dictated  by  the  user  before  the  run,  depending  on  whether  a 
constant  or  percent  of  MOT  screen  is  chosen.  If  a constant 
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screen  is  chosen  the  constant  screen  value  will  appear  here. 
If  a percent  of  MOT  is  chosen  the  percentage  appears  here. 


d.  Screen  Interval.  This  column  will  duplicate  the 
screening  value  in  c.  above  if  a constant  is  used.  Otherwise 
the  percent  of  MOT  is  figured  and  its  value  will  appear  here. 

e.  Screen  in  EFH.  This  value  takes  the  screen  interval 
and  converts  it  to  equivalent  engine  flying  hours  using  an 
appropriate  conversion  factor. 

f.  Months  Remain.  This  column  is  a computed  value  in 
terms  of  months  showing  how  many  months  of  life  are  being 
sacrificed  by  the  screening  value  chosen.  It  is  computed  by 
taking  the  screening  value  in  engine  flying  hours  and  dividing 
it  by  the  monthly  utilization  rate  for  the  engine.  See 
Chapter  IV,  2. a. (10). 

g.  Rule  of  X was . This  footnote  appears  directly 

below  the  Cross  Reference  Table  and  is  simply  a reminder  of 
the  Rule  Policy  value  chosen  before  the  RUN  command.  See 
Chapter  IV,  2. a. (1)  for  further  explanation  of  the  Rule  of  X. 
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Engine  Removals  Report  Period  Summary.  This  table  shows 


* 


i* 


which  seed  run  is  being  reported,  the  simulation  period  and 
report  period  chosen,  the  life  cycle  period  and  monthly 
utilization  rate  desired,  whether  or  not  warmup  and  random 
seeds  were  used  for  the  run,  the  number  of  modules  involved 
and  the  Rule  of  X value.  It  also  displays  an  input  engine 
NRTS  rate  and  removals  per  1000  FH  and  computed  outputs 
for  these  two  terms.  The  chart  immediately  following  this 
shows  by  report  period  how  many  and  which  modules  failed 
or  reached  MOT  causing  an  engine  removal.  See  Table  ?. 

a.  Report  Period  K.  This  K value  tallies  how  many 
report  periods  were  desired  in  the  simulation  run. 

b.  Report  Period  Hours.  This  value  is  the  amount  of 
engine  flying  hours  that  have  been  reached  since  the  first  K 
report  period  started.  It  is  cumulative  so  that  its  last 
value  equates  to  the  value  chosen  for  the  entire  simulation 
run. 


22 


t 


a 


c.  One  Module  Fails  Early.  This  column  tallies  how  many 
times  an  engine  was  removed  due  to  a single  module  failure. 

d.  Many  Modules  (Fail)  Early.  This  column  tallies 
how  many  tines  an  engine  was  removed  due  to  multiple  module 
failures. 

e.  Many  Modules  U + T.  This  column  records  how  many 
times  an  engine  was  removed  due  to  a combination  of  usage  and 
time  (MOT)  module  removals  for  failures  and  scheduled  checks 
respectively. 

f.  One  MOT  Reached.  This  column  records  how  many  times 
an  engine  was  removed  due  to  a single  scheduled  module 
removal . 

g.  Total.  This  column  now  adds  the  other  columns  up 
row-wise  for  a total  by  report  period. 

h.  Totals . This  line  appears  at  the  bottom  of  the  table 
and  adds  each  column  for  a total  of  the  different  removal 
reasons  listed  and  a grand  total  on  the  far  right  under  the 
Total  column  described  in  (g)  above. 
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5.  Engine  NRTS  Analysis.  These  tables  appear  on  page  three 


of  the  printout. 


Table  3 displays  a distribution  of 


modules  removals  that  were  NRTS  to  the  depot  as  single 
modules  and  Table  4 shows  those  that  v/ere  NRTS  as  part  of 
the  engine  Rule  of  X Policy.  See  Table  3. 


a.  Item.  This  column  displays  which  module  (by  item 
number)  is  involved. 


b.  Base  RTS . This  column  shows  which  modules  did  not 
get  sent  to  the  depot  as  lone  modules  but  were  classified  as 
base  repairs. 


c.  Initial  NRTS  Percent.  This  column  displays  input 
NRTS  % rates  as  established  by  management. 


d.  Usage  NRTS.  This  column  gives  the  total  number  of 
times  during  the  simulation  run  that  each  module  was  removed 
and  NRTS  as  a lone  module  for  usage  purposes.  It  is  computed 
by  comparing  a random  number  to  the  initial  NRTS  percent  for 
each  module.  If  the  random  number  is  less  than  or  equal  to 
the  NRTS  % the  module  is  considered  to  be  NRTS.  if  random 

number  is  greater  than  the  NRTS  % the  module  is  considered  to 
be  Base  RTS. 


e.  u— Screen  NRTS . This  column  shows  the  total  number  of 
times  during  one  complete  simulation  run  that  each  module  was 
removed  for  usage  and  at  the  same  time  found  to  be  within  its 
screening  interval  and  thus  NRTS  as  a lone  module. 

* 

Scheduled  NRTS.  This  column  gives  the  total  number 
of  times  during  one  complete  simulation  run  that  each  module 
was  removed  and  NRTS  as  a lone  module  for  scheduled  purposes, 
i.e.  reaching  its  life  limit. 

3*  Screen  NRTS . This  is  the  seventh  column  in  the  table 
and  it  records  the  total  number  of  times  each  module  was 
removed  and  NRTS  alone  for  screening  reasons. 

h.  Total  NRTS.  This  column  adds  up  all  the  NRTS  alone 
categories  for  each  module  and  shows  the  total  of  the  NRTS 
alone  removals  by  module. 

I 

i • final  NRTS  Percent  Alone.  This  column  lists  the 
final  NRTS  percent  for  each  module  (those  not  part  of  the 
engine  Rule  of  X Policy) . It  takes  the  total  NRTS  alone 
removals  and  divides  that  number  by  the  base  RTS  plus  the 
total  NRTS  removals  for  each  module. 

j j 


j 
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j.  Removals  Per  1000  FH.  This  is  the  last  column  of 
the  first  table.  It  records  the  final  removal  rate  for  lone 
modules  by  adding  the  RTS  plus  total  NRTS  alone  and  dividing 
this  total  by  the  simulation  period  and  multiplying  by  1000 
to  get  removals  per  1000  FH. 

J 

6.  Engine  NRTS  Analysis , NRTS  with  Engine  NRTS  Policy. 

This  table  shows  similar  information  as  in  Table  3 t except 
all  the  modules  were  part  of  the  engine  NRTS  due  to  the  Rule 
of  X Policy,  where  X was  determined  at  the  beginning  of  the 
simulation  run.  See  Table  4. 

a.  Item.  Number  assigned  to  the  module  involved. 
Statistics  are  read  by  row. 

b.  Usage  NRTS.  This  column  records  all  the  usage 
removals  of  modules  that  went  to  the  depot  as  part  of  the 
engine  due  to  the  Rule  of  X Policy. 

c.  U-Screen  NRTS.  This  column  records  by  module  which 
removals  were  for  usage  and  at  the  same  time  were  found  to  be 
eligible  to  be  screened  out.  These  modules  would  therefore 
be  NRTS.  However,  they  are  part  of  the  engine  Rule  of  X 
Policy  so  they  become  classed  as  an  engine  NRmS  and  are  not 
counted  as  module  NRTS. 

i 
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d.  Scheduled  NRTS.  This  column  gives  the  total  number 


of  times  during  the  simulation  run  that  each  module  had 
reached  its  MOT,  but  was  sent  to  the  depot  as  part  of  the 
Rule  of  X Policy  and  removed  there. 

e.  Screen  NRTS.  This  is  the  fifth  column  shown  in 
this  table.  It  records  the  total  number  of  screened  modules 
that  were  sent  to  the  depot  as  part  of  the  complete  engine 
for  removal  and  repair  at  the  depot  level. 

f.  Total  NRTS.  This  adds  the  total  number  of  module 
removals  for  cause  that  occurred  at  depot  as  a result  of 
going  with  the  complete  engine  because  of  the  Rule  of  X 
Policy. 


g.  Not  Effected  3ut  NRTS.  This  last  column  records  how 
many  times  good  modules  were  sent  to  the  deoot  as  part  of  a 
whole  engine  due  to  the  Rule  of  X Policy.  These  nodules  were 
not  effected  by  malfunctioning,  reachi  g MOT,  or  screening 
and  otherwise  would  not  have  been  removed  or  repaired  as  a 
separate  module.  These  modules  are  simply  "going  along  for 
the  ride"  as  part  of  an  engine  NRTS. 

h.  Total.  This  line  simply  adds  up  how  many  total 
modules  were  sent  to  the  depot  as  engine  NRTS  for  the  various 
removal  reasons  explained  above. 
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i.  Total  Engine  NRTS.  This  line  3hows  how  many  times 
the  engine  was  considered  NRTS  due  to  the  Rule  of  X Policy. 

j.  Engine  NRTS  Percent.  This  is  the  percent  of  engine 
removals  that  were  NRTS  to  the  depot  as  part  of  the  Policy. 

k.  Total  Removals  Per  1000  FH.  This  line  calculates 
the  total  number  of  engine  removals  per  1000  HI  by  taking  the 
total  number  of  removals  and  dividing  by  the  total  nunber  of 
flying  hours  in  the  simulation  run  and  multiplying  the  result 
by  1000. 

7.  Module  Removals  Report  Period  Summary.  The  next  set  of 
tables  shows  module  removal  summaries  on  a separate  table  for 
each  module.  Each  table  is  alike  so  the  following  description 
appears  only  once  and  applies  to  all  Module  Removals  Report 
Period  Summary  Tables.  The  core  is  used  as  an  example  on 
Table  5.  The  heading  entries  are  self-explanatory. 

a.  Report  Period  K.  This  K value  identifies  each  oeriod 
by  number . 

b.  Report  Period  Hours.  This  value  is  the  amount  of 
engine  flying  hours  that  have  been  reached  since  the  first  K 
report  period  started.  It  is  cumulative  so  that  its  last 
value  equates  to  the  value  chosen  for  the  entire  simulation 
run* 
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c.  One  Part  Fails  Harly.  This  column  tallies  how  many 
times  the  module  was  removed  due  to  a single  part  failure. 

d.  .Many  Parts  (Fail)  Early.  This  column  tallies  how 
many  times  the  module  was  removed  due  to  multiple  part 
failures. 

e.  Many  Parts  0 + T.  This  column  records  how  many 
tines  the  module  was  removed  due  to  a combination  of  usage 
and  time  (MOT)  part  removals  for  failures  and  scheduled 
checks  respectively. 

f.  One  MOT  Reached.  This  column  records  how  many  times 
the  module  was  removed  due  to  a single  scheduled  part  removal. 

g.  Parts  Screened  Out.  This  column  records  how  many 
tines  a part  was  screened  out  of  the  module  opportunistically 
during  the  report  period  K. 

h.  Total.  This  column  adds  the  other  columns  up  row-wise 
for  a total  by  report  period  of  parts  removals. 

i.  Totals.  This  line  appears  at  the  bottom  of  the  table 
and  adds  each  column  for  a total  of  the  different  parts 
removed  as  listed  and  a grand  total  on  the  far  right  under 
the  Total  column  described  in  (h)  above. 
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I'<?novals  Per  100  e PTM! 


TMis  (.{pn  -»  < 1 /V.v » • } 

input  base  removals  and  computed  *>  > tj  -a  4 hr  no,  --or4  v 

removals  j/er  1000  F1FH. 

k.  NRTS  Percent.  This  line  is  follow* d ' - Lfr.u‘ 
level  NRTS  and  computed  base  level,  depot  1 eve  . an'  no 
NRTS  percent. 

l.  Percent  Depot  Repair.  This  line  compares  the  4 
number  of  depot  removals  with  the  total  number  of  reno'. 
for  cause  and  yields  percentages  respectively. 

8.  Module  Removals  Summary.  This  table  shown  4 V.  *■*>„ 
reasons  for  each  module  and  hov/  many  tines  eoev  • 4 * 

due  to  the  parts  needing  replacement.  See  ratio  r 

a.  M.  Number  assigned  to  module  inv-'l 

b.  Module  Nomenclature.  Name  assi-mr  4 • module  ’ 
These  names  are  used  throughout  the  pri^too'  . 

c.  Use.  This  column  shows  how  man-.  4.  ‘ *■>  »cl.  - o ; 

was  removed  due  to  a failure  of  one  cf  i *.n  , * ■ 

d.  U-Dep.  This  column  records  u ; vr  r ■ i .ve . • * ‘ a 
qualified  to  be  screened  and  shows  wv  ic.  mo  d. 
removed  and  hov/  many  wore  remove 
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e.  Time.  This  column  tallies  which  modules  were  removed 
— 

due  to  scheduled  parts  replacements  and  how  many  were  removed. 

f.  Screen . This  column  records  screened  parts  removals, 
showing  how  many  were  screened  and  from  which  modules. 

g.  Total . This  column  totals  parts  removals  by  module. 

h.  Screen  Interval.  This  column  shows  the  screen  interval 
used,  whether  it  was  constant  or  percent  of  MOT. 

i.  Grand  Total.  This  row  totals  the  individual  columns 
and  gives  a grand  total  at  the  far  right. 

9.  Parts  Removal  Summary.  This  set  of  tables  shows  parts 
removal  summaries,  one  table  per  individual  module.  Each 
table  shows  all  the  life-limited  parts  in  the  module  as  well 
as  the  "dummy"  part.  The  dummy  part  accounts  for  all  the 
premature  removals  experienced  by  the  module.  All  the 
reasons  for  removals  are  shown  for  each  part.  The  value  of 
the  screen  interval,  whether  originally  input  as  a percent 
of  MOT  or  a constant  is  also  shown.  The  core  module  is  used 
as  example  in  Table  7. 
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a.  Part  No.  J.  Number  assigned  to  part  involved. 


b.  Part  Name.  Self-explanatory, 

c.  Usage  Removals.  This  column  records  all  the  parts  removed  for 
usage  purposes  on  the  module. 

d.  Tolerance  Removals.  This  column  records  removals  of  parts  that 
were  so  close  to  failure  that  signs  of  wear  dictated  their  premature 
removals  (before  they  actually  failed  or  reached  MOT) . 

e.  U-Dep  Removals . This  column  records  parts  usage  removals  that  also 
qualified  to  be  screened. 

f.  Time  Removals.  This  column  records  all  parts  removed  due  to  reaching 
their  life  limits. 

g.  Screen  Removals.  This  column  records  screened  out  parts  in  the 
module. 


h.  Total . This  column  totals  parts  removals  by  module. 

i.  Percent  of  MOT.  This  column,  when  headed  by  the  word  CONSTANT, 

shows  the  constant  screen  applied  to  each  part.  The  heading  % OF  MOT  SCREEN 
shows  the  actual  screen  interval  value  of  the  % of  MOT. 
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j . Modulo  Totals.  This  row  totals  up  the  number  of  each 
type  of  nodule  removal  that  ensued  due  to  a part  needing 
repair  or  replacement. 

10 . Objective  Function  - Complete  Engine  Maintenance 
Costs . The  objective  function  relates  input  cost  data  to 
computer  generated  engine  removals  data  to  assign  maintenance 
and  pipeline  costs  to  the  chosen  life-cycle  period.  See 
Table  8. 

a.  Total  NRTS  Engine  Removals.  This  value  is  previously 
computed  based  on  the  Rule  of  X chosen. 

b.  *"LFCYC"/"SIMYRSW.  These  values  are  inputted  by  the 
user  before  the  run.  The  desired  life  cycle  divided  by  the 
total  number  of  simulation  years  becomes  the  factor  needed 
to  scale  down  the  total  NRTS  removals  to  a life  cycle's 
worth. 

c.  Depot  Cost/Kngine.  This  input  value  is  the  average 
depot  repair  cost  experienced  by  San  Antonio  ALC. 

d.  Total  Base  Fngine  Removals.  This  value  is  previously 
computed  and  is  found  by  simply  subtracting  the  NRTS  engine 
experienced  in  the  run  from  the  total  engine  removals  in  the 
run. 
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e.  »"LFCYCw/"SIMYRS" . See  I tew  (b)  above. 

f.  Base  Cost/Engine.  This  input  value  is  the  average 
base  cost  to  repair  each  engine  at  the  base  level. 

g.  Total  "Life  Cycle”  Years  Depot  and  Base.  This  column 
is  computed  by  multiplying  15  years  worth  of  NRTS  removals 
times  the  average  depot  repair  cost  and  adding  this  to  the  15 
years  worth  of  base  removals  times  the  average  base  cost  per 

engine. 

11.  Objective  Function  - Module  Maintenance  Cost  With.. 

See  Table  8,  bottom. 

a.  Item.  This  column  displays  which  module  (by  item 
number)  is  involved. 

b.  Module  Nomenclature.  This  column  denotes  the  name 
and  number  assigned  to  the  different  modules  in  the  program 
simulation. 

c.  Total  NRTS  Module  Removals.  This  number  is  the  total 
NRTS  modules  that  were  NRTS  as  part  of  the  engine  Rule  of  X 
Policy. 
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d.  *"T,rCYCw/"SIMYRS" . These  values  are  inputted  by  the 
user  before  the  run.  In  general,  the  value  computes  a life 
cycle  from  a particular  simulation  period.  Both  the  life 
cycle  length  and  the  total  simulation  period  are  chosen  by 
the  user  before  the  run  is  made. 

e.  Depot  Cost  Factor.  This  value  is  input  data  internal 
to  the  program.  It  is  the  average  remove  and  replace  cost 
for  each  item  (module)  at  the  depot  level. 

f.  Total  "Life  Cycle"  Years  Depot.  This  value  is 
computed  for  each  module  by  multiplying  the  life  cycle  value 
of  MRTS  removals  for  each  module  times  the  depot  cost  factor, 
yielding  a total  life  cycle's  worth  of  costs  by  module  for 
depot  repair. 

g.  Total . This  value  cumulates  the  total  life  cycle 
cost  at  the  depot  for  each  module  and  yields  a total  additional 
cost  to  the  depot  engine  repair  cost  for  the  same  life  cycle 
period. 

12.  Objective  Function  - Complete  Engine  Pipeline  Costs. 

See  Table  9. 

a.  Daily  Demand  Rate. 
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(1)  Removals/1000  FH.  This  value  is  the  final 
removals  per  1000  flying  hours  for  the  engine  commuted  in  the 
simulation  run*  It  is  used  here  to  determine  the  daily 
demand  rate  in  conjunction  with  the  conversion  factor  below. 

(2)  * "MONUTR'I/3QOOO . This  value  is  multiplied  times 
the  removals  per  thousand  hours  to  compute  a daily  demand 
rate.  Monutr  is  a term  meaning  monthly  utilization  rate  and 
is  input  by  the  user  at  the  beginning  of  the  run.  Thus,  the 
removals/1000  FH  multiplied  by,  say  17  flying  hours  per  month 
is: 


REMOVALS  * 17  = DAILY  DEMAND  RATE 

1000  FH  30 

b.  NRTS  Rate.  This  is  tne  percentage  value  of  engine 
removals  that  were  NRTS  to  depot  divided  by  the  total  number 
of  engine  removals. 

c*  NRTS  Pipe.  This  column  lists  the  input  standard 
depot  pipeline  repair  days  for  the  engine. 

d.  Bas  •»  Rate.  This  is  the  percentage  value  of  engine 
removals  that  were  repaired  at  base  divided  by  the  total 
number  of  engine  removals. 
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° • Basn  Pipe.  This  value  is  input  data  internal  to  the 
program  and  shows  the  standard  base  pipeline  repair  days  for 
the  engine. 

f • Pipeline  Quantity.  This  value  is  computed  by  taking 
the  daily  demand  rate  and  multiplying  it  by  the  percentage 
of  MRTS  engines  times  its  standard  depot  pipeline  repair  time 
plus  the  percentage  of  base  repaired  engines  times  its 
standard  base  pipeline  repair  time.  The  equation  is: 

PIPELINE  = DAILY  DEMAND 
QUANTITY  RATE 

U*  Stock  List  Price.  This  value  is  inputted  and  is  the 
approximate  procurement  cost  in  today's  dollars  of  an  F100PW100 
engine . 


h.  Total  Cost.  This  is  a computed  value  found  by 

multiplying  the  pipeline  quantity  times  the  stock  list  price. 

13.  Objective  Function  - Module  Maintenance  Costs  Alone. 

See 

Table  10. 
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[BASE 
*NRTS|+  RATE 
PIPE / lOO 


BASE 

PIPE; 


a. 


Item.  As  previously  noted 


b.  Total  RRTS  Module  Removals.  This  oolunn  records  the 
total  amount  of  module  removals  (by  module)  that  needed  depot 
level  repair  and  were  sent  as  a separate  unit  rather  than 
with  the  whole  engine. 

c.  *I*LFCYC"/"SIMYRS" . These  values  are  user  inoutted  at 
the  beginning  of  the  run.  It  is  used  to  scale  down  total 
removals  for  the  entire  simulation  period  to  a life  cycle's 
worth  of  removals.  This  is  done  by  multiplying  the  total 
removals  by  the  factor  consisting  of  the  life  cycle  divided 
by  the  total  number  of  years  in  the  simulation. 

d.  Depot  Cost  Factor.  This  column  lists  input  data  that 
was  computed  by  averaging  the  amount  of  manhours  spent  to 
repair  each  module  at  the  depot.  Then  a cost  per  manhour 
factor  was  applied  to  obtain  the  average  depot  cost  per 
module.  Then  this  factor  is  carried  in  the  input  data. 

e.  Total  Base  Module  Removals.  This  column  records  the 
total  amount  of  times  each  module  was  removed  and  repaired  or 
replaced  at  base  level. 


f. 


* "LFCYCysiMYnS”  . See  Item  13(c)  above. 


g.  Base  Cost  Factor.  This  column  shows  input  data  that 
was  computed  by  averaging  the  amount  of  manhours  spent  to 
repair  each  nodule  at  the  base.  Then  a cost  per  manhour 
factor  was  applied  to  obtain  the  average  base  cost  per 
module. and  this  factor  is  carried  in  the  input  data. 

h.  Total  "LFCYC"  Years  Depot  and  Base.  This  column 
obtains  its  values  by  taking  the  life  cycle's  worth  of  depot 
removals  times  the  depot  cost  factor  and  adding  to  this  value 
the  life  cycle's  worth  of  base  removals  times  the  respective 
base  cost  factor. 

14.  Module  Pipeline  Costs.  This  table  shows  the  pipeline 
cost  breakdown  incurred  by  module.  See  Table  11. 

a.  Item.  As  explained  previously. 

b.  Daily  Demand  Rate. 

(1)  Removals/1000  FH.  These  values  are  the  final 
removals  per  1000  flying  hours  computed  in  the  simulation  run 
for  each  module. 
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(2)  «"MONUTR,'/30000.  This  value  is  multiplied  timer 

the  removals/1000  PH  above  to  compute  a daily  demand  rate. 
Monutr  means  monthly  utilization  rate  and  is  user  inputted  at 
the  beginning  of  the  run.  It  is  divided  by  30,oen  because 
there  are  approximately  30  days  per  month  and  the  removal 
rate  is  given  per  1000  PH,  hence  30  * 1000  = 30non. 

c.  NRTS  Pipe.  This  column  lists  the  standard  depot 
pipeline  repair  days  for  each  module. 

d.  Base  Pipeline.  This  column  lists  the  standard  base 
pipeline  repair  days  for  each  module. 

e.  Pipeline  Quantity  Per  Module.  This  column  finds  the 
fraction  of  depot  removals  times  the  depot  pipe  and  adds  to 
it  the  fraction  of  base  removals  times  the  base  pipe  and  then 
multiplies  this  sum  by  the  daily  demand  rate  for  each  module. 

f.  Module  Price.  This  value  is  inputted  and  is  the 
approximate  procurement  cost  in  today's  dollars  of  each 


15.  Transportation  Costs.  This  table  shows  the  transportation 


costs  incurred  by  modules  when  sent  alone  and  by  entire  engines 
when  sent  to  the  depot  for  repair.  See  Table  11  (a). 

a.  Item.  Self-explanatory. 

b.  Nomenclature . Self-explanatory. 

c.  NRTS  Removals.  This  column  records  the  total  amount 
of  module  removals  by  module  and  by  engine  that  needed  depot 
level  repair  and  were  sent  as  a separate  unit  or  as  an  entire 
engine  with  separate  transportation  costs  applied. 

d.  *''LFCYC"/"SIMYRS"  . These  values  are  user  inputted  at 
the  beginning  of  the  run.  It  is  used  to  scale  down  total 
removals  for  the  entire  simulation  period  to  a life  cycle's 
worth  of  removals.  This  is  done  by  myltiplying  the  total 
removals  by  the  factor  consisting  of  the  life  cycle  divided 
by  the  total  number  of  years  in  the  simulation. 

e.  Transportation  Cost/Removal.  This  value  is  data 
internal  to  the  program.  It  was  found  by  taking  a weighted 
average  of  removals  occurring  at  various  bases  --  the  cost 

of  sending  the  item  to  the  depot  from  each  location  is  known  -- 
and  computing  an  average  transportation  cost  for  the  engine 
and  each  module. 

f.  15-Year  Costs.  This  figure  is  found  by  multiplying 
the  average  transportation  cost  per  removal  by  the  15-year 
average  NRTS  removals  found  in  the  fourth  column. 
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1 6.  Life-Limited  Parts  Replacement  Costs  for  a Particular 
Life  Cycle.  These  tables  are  alike  and  show  parts  replace- 
ment costs  for  a user-inputted  life  cycle  by  nodule.  Since 
the  chart  is  repeated  for  each  nodule.  Table  12  shov.’s  an 
example  chart  for  the  core  nodule. 

a.  Part  Number.  The  number  assigned  to  the  life-limited 
and  "dummy"  parts  identified  in  the  simulation. 

b.  Part  Marne.  Self-explanatory . 

c.  Total  Scheduled  Removals  ( "SIMYP.S" ) . "'his  column 
shov/s  the  total  number  of  scheduled  removals  for  the  entire 
simulation  for  each  part  shown. 

d.  Scheduled  Removals  ("LFCYC").  This  column  shows  the 
fraction  of  scheduled  removals  that  took  nlace  during  the 
desired  life  cycle  input  by  the  user. 

e.  Unit  Price.  This  column  shows  the  average  stock  list 
price  for  each  part. 

f.  Total  "LrCYC"  - Year.  This  column  multiplies  the 
Scheduled  removals  in  the  chosen  life  cycle  times  the  unit 
price  to  yield  parts  replacement  costs  for  each  part  during 
the  desired  life  cycle  period. 
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Objective  Function  Summary 


This  table  pulls  together 


the  maintenance  costs,  pipeline  costs,  and  parts  costs  to 
yield  a total  cost  of  operating  one  engine  for  the  entire 
life-cycle  period.  See  Table  13. 

a.  Item  Kane.  Self-explanatory. 

b.  Maintenance  Costs. 


(1)  Alone.  These  are  maintenance  costs  incurred  by 
the  individual  modules  when  serviced  alone  and  not  as  part  of 
an  engine  NRTS.  Base  and  depot  costs  are  separated  here  also. 

(2)  With.  These  are  maintenance  costs  incurred  by 
the  modules  when  they  were  part  of  an  engine  NRTS  policy. 

(3)  Totals . This  column  simply  adds  maintenance 

costs  alone  with  maintenance  costs  with  engine  NRTS  policy.  i 

c.  Pipeline  Costs.  These  values  were  previously  com- 
puted and  defined  in  the  simulation. 

d.  Transportation  Costs.  As  nrevinnslv  recorded. 

£•  Parts  Costs.  As  previously  recorded. 
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f . "otal  frosts.  This  column  simply  sums  the  maintenance 
costs,  pipeline  costs,  and  parts  costs  by  module,  and  by 
module  totals  and  finally  row-wise  for  a grand  total  on  the 
far  right. 

18  • Screen,  NUTS  Pate  and  Removals/1000  FI?  Summary.  See 
Table  14. 

a.  Item  Pane.  Self-explanatory. 

b.  Screen  Interval.  This  value  is  the  constant  or 
percent  of  MOT  value  in  engine  flying  hours. 

c.  Initial  NRTS  Rate  %.  "’his  column  is  data  internal  to 
the  program. 

d.  Initial  Rem/1000  FH.  This  column  is  also  data 
internal  to  the  program  as  defined  in  the  Design  Maintenance 
Concept. 

e.  Final  NRTS  Rate  %.  This  column  recaps  the  output 
NTT'S  rate  percent  comnuted  in  the  simulation. 

f.  Final  Removals  Per  1°QP  FH.  mhis  column  recaps  the 
output  removals/1  ^0°  P,T  commuted  in  the  simulation  run. 


J 
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19.  Average  Data.  The  average  data  is  found  in  Table  15.  This 
section  of  the  program  averages  the  data  obtained  from  the  seed 
runs  (if  greater  than  one  run  was  requested).  The  engine 
removals  by  report  period  summary , modules  removals  summary, 
objective  function  summary,  and  final  NRTS  rate  and  removals 
per  1000FH  are  all  averaged  as  shown  in  the  table.  Each 
summary  has  been  previously  explained  in  this  section. 

20.  Actuarial  Input  Data.  This  data  is  internal  to  the 
program  and  is  printed  out  for  the  benefit  of  the  user. 

The  data  is  explained  in  the  printout. 
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13’  3 TTT  ITo  5TJ 


4 7 


TDTM3 


OB  >4  r U K) 


Table  3 


BNalBB  Nr Ts  ANALYSIS PAGE 

distribution  op  .iodule  removals 

(NRTS  return  To  pEBQT  RlOffE) 

BAS?'  INITIAL  USA3S  U-SCREEN  SCHED  SCREEN  TOTAL  FINAL  N'RTS  REM/ 
ITEM  RTS  PROS*  NRTS  NRTS  NRTS“  THTTS  NRTrT  7T"SX0NE  1CQ01H 


TOTAL  O 


9 .'0  0 
07 

5 6 V 0 0 
S5;oo 
7 0 700 
11700 
77  700 

or 


0 2 

fl  155 

51  125 

T? T16 

20  117 


2U  5~B  5~ 


u.oo 
1P0700 
°7 , 66 
"W.W 
99.15 

100.00 

or- 


1.2255 
3.7990 
3.1373 
tt.5588 
2.8922 
1 .b-17? 
0.7598 
371578 


Table  4. 

DISTRIBUTION  Dp  «DUX®  TXnOTSTS 

PUTT*  ITT*  T?PTllfX  TTRTTT  FtJXTTT 

TTSAGE  Onscreen  EgHED  SCREEN  TOTS L NCT  AFFECTED 
KRIS  NRTs  NlTS  NHT8  NRTS  BUT  NRTS 


TOTAL 

ENGINE  NRTS 

5 

ENGINE  NRTS  X 

07 

total 

R E .'I  ( 1 0 0 0 F H 

1275735 

Table  5. 


fjOoULE  REMOVALS  PASf  7 

RJPOBT  PElIoD  5 0 M H A ITT 
' m ZVfl 


seed  run  2 

SCREEN  IS  1-0;  TYPE  IS 

NUMBER  OF  PASTS  22 

mofthty  uTim^Tirm  rate  ts 
report  period  is  «o8o 


CONSTANT 


module 

Removals  (alone  4 mts 

Wild  EN31N 

S) 

* * 

US  A3E  * 

■ • ^ — «•»  * 

* * 

• « • r^rtE  • • • 

REPORT  ONE 

PART 

man* 

■ an  y 

3BE 

Paris 

PERIOD  FA 

ILS 

PARTS 

P RTS 

MOT 

screened 

K HOURS  EARL* 

Earl? 

UtT 

R E A 0 R£d 

OUT 

TOTAL 

**  ^ 

4080 

1 

0 

1 

13 

50 

22 

Ti  60 

. 

3 

2 

TI 

6 

1 9 

3 12240 

1 

3 

4 

5 

7 

17 

4 15320 

7J 

0 

1 

13 

8 

19 

5 20400 

3 

3 

9 

5 

17 

6 2-«48G 

2 

0 

3 

9 

11 

20 

7 23560 

0 

3 

9 

6 

16 

3 32640 

CT 

' 5' 

"3 

1 1 

50 

22 

9 35120 

7 

3 

2 

7 

9 

1 8 

10  40800 

3 

2 

13 

5 

20 

TOTALS 

4 

0 

22 

89 

77 

192 

INPUT 

* * 

* * t 

FINAL  * * * 

* TT  ■» 

dASE 

base 

Depot  total  for 

LEVEL 

L*V2L 

level  cause 

REM/1 00OEFH 

0,0822 

55*8 

ff.T^TT  IT 

Troys 

NRTS  PERCENT 

83.00 

100, 

00 

loo.oo  ioo. 


49 


a 


- 


r -- 

i 

Table  5. 


MODULE  REMOVALS  SUMMARY PA3C  ^ 

DATE  06 1 »7y  TIME  1 1 4 6 SEC  24 


MODULI 

* * 

* PRIMARY  * 

* # # 

CONSTANT 

M NOMENCLATURE 

USE 

U.DEP 

»•••••< 

TIME 

»*T— • 

gCfiERN 

TOTAL 

TKlFnVj.L 

1 700  AU30C8TOR 

50 

3 

3 

0 

53 

ICO 

2 l05  ACS’!  <?U 

0 

0 

88 

72 

•nr?- 

Tc”0 

3 300  FAN 

8 

0 

70 

55 

133 

1 CO 

4 403  CoBI 

4 

0 

111 

77 

T9  2 

Too 

5 5C0  H P TURB 

4 

9 

97 

20 

121 

ICO 

s"T7T5  rAw-  DS  tUR 

5 

T " 

U1 

71 

73 

11573 

7 603  SEAgBJX 

i 

0 

10 

22 

33 

100 

8 500  ACC2  VOU 

13"8 

3 

0 

or 

T3"8 

TTO 

3RA«D  TOTAL 

2TT 

3 

1*19 

257 

897 

PARTS  |BM8»AL  SUMMARY PAGE  14 

>>>  400_cOjiE Table  J1 


part 

pftsr 

# • * 

***** 

removals  * 

* * * 

* * * 

CONSTANT 

NO.  J 

• -«• 

N*M8 

usaoi 

TOLERANCE 

U*§!1» 
-#•***— *» 

time 

• •> « 

SCREES 

total 

SCREEN 

16 

400  CORE  DUMMY 

4 

0 

0 

0 

0 

4 

100 

| 17 

401  4ST3  SEAL 

0 

0 

0 

4 

6 

10 

100 

18 

402  5 S T 3 SEAL 

0 

0 

0 

3 

J 

6 

ICO 

19 

403  6 S T 3 SEAL 

0 

3 

0 

6 

5 ' 

TT 

100 

[ 20 

404  7573  SEAL 

0 

3 

0 

4 

5 

9 

100 

21 

405  8873  SEAL 

0 

3 

0 

~T1 

5 

16 

100 

22 

406  9STG  SEAL 

0 

3 

0 

9 

7 

1*1 

100 

23 

407  TITOTG  SEAL 

0 

0 

0 

7 

9 

16 

100 

24 

400  -1  1 ST5  SEAL 

0 

3 

0 

7 

9 

16 

100 

25 

409  '25X0  SEAL 

0 

8 

0 

TO  " 

6 

16 

100 

26 

410  ’ 3 g T G SEAL 

0 

0 

0 

2 

4 

6 

100 

27 

411  4873  DISK 

0 

3 

0 " 

~J 

4 

6 

100 

28 

412  5srs  DISK 

0 

3 

0 

3 

2 

7 

100 

29 

i*T 3 ^3T5"  DISK 

0 

T~ 

0 

2 

2 

S 

100 

30 

414  7 3 7G  DISK 

0 

3 

0 

5 

12 

17 

100 

31 

415  S 575  DISK 

0 

3 

0 

6 

12 

100" 

32 

416  9 S 1 3 DISK 

0 

0 

3 

3 

8 

1 1 

100 

33" 

417  30STG  DISK 

0 

3 

_ 75 

1 

3 

f~ 

"WO 

34 

418  J1ST5  DISK 

0 

3 

0 

3 

3 

6 

100 

35 

4 19  72TT5  75  TiH? 

75 

W 

0 

5 

9 

T07J 

36 

420  7 3 STS  DISK 

0 

D 

0 

4 

3 

7 

100 

3? 

421  |LiR  SHAFT 

0 

3 

0 

3 

3 

6 

100 

MODULE  TOTALS 

I 

4 

3 

0 

1'5J 

TVO 

217 

L 


Table  8. 


OPJEcTlVe  FUNCTION  PAGE  16 

COMPLETE  EN3INB  MjlNXgSKMcB  COSTS 

* * * * FACTORS  ’*  * * * 


ENGINE  * 15/  BBn/fiBp  AV.BASE  aT.DEP.  15-YPAR 

RS’IVLS  2 00  CSI/BEM  CSt/ReM  CST/RES  COSTS 

-*••  — - --------  ------  **»t 


BASE  REMVLS 

513 

38.4750 

1 6 1 

6118  " 

BASE  RTS 

507 

38.0250 

1 S 0 3 " 

66668 

DEPOOBtr' 

6~ 

oT&yoo 

71 10 

GRAND  TOTAL  81696 


objective  function 


MODULE  MAINTENANCE  COST  WITH 


M 0 D i.-  L E 

TOTAL  n aTg 

*15/ 

DEPOT 

TOTAL  15  IRS 

ITPM 

iT0  HEELS' TTHTE 

TI3D  FEMOTX'S 

'Toir 

COST  FACTOR 

DEPOT 

* 

^ " 

1 

700  AU3NESTOR 

0 

0*. 

1753 

0 

2 

100  ACC  ' ? LL 

5 

313750 

6 46 

3 17 

3 

300  FAN 

5 

O'.  3750 

3200 

1200 

0~ 

’4  0V 

5 

0?  4 5D7T 

6 525 

2711 

5 

500  H F TURB 

3 

012250 

1537 

339 

6 

500  FAN  DP  TUR 

4 

023000 

3020 

906 

7 

300  38AFBQX 

2 

o:  1500 

1056 

159 

6 

300  ACC7  HOLL 

1 

0*0750 

124 

9 

I0TAl 'T?a  1 


objective  function  Table  9. 


complete  engine  pipeline  costs 

DAILI  Dgtl|fD  RATE  NFTS  BAST  PIPELINE  SIK  LIST  TOTAL 
PEM/1  000FH*  1 7/30000  RAIS  PlPfi  8AtE  PIPE  "ffUANlITr-  PRICE  COST 
-r*i*  


•...8735  0 , >071250  1.2  42  9 8 S 8 (I  0.03167  17(50000  83833 


51 


total  nbts  *15/  oepoi  total  base  **5/  base  total  is  y*s 

ITEM  MOD  EJMVLS  200  COST  FftCX  SOD  REAVES “ 700 “COST  FACT  DEPOTJBAsE 


1 2 0.1500  1 73  S 48  3.6000  775  3051 


2 

155 

~ TTT5250 

5«  5 

0 

0 . 

BT.T 

T5TJT 

3 

125 

9.3750 

3209 

3 

0.3250 

839 

30188 

4 

186 

13,9500 

6025 

0 

“5. 

575 

S40UF 

5 

117 

8,7750 

1507 

1 

0.3750 

850 

13286 

6 

59 

4,8000 

3025 

7 

0.T57D 

“ 516 

14576 

7 

3^ 

2.3250 

1Q6» 

0 

0. 

299 

2478 

8 O' "TV ~rtlt TJ7 10.2750 0 7 


~ TCTAI  '“  15746 1 


Table  11. 

noutJLE 

PTfnmrr 

Costs 

DAILT 

DEMAND  RATE 

NRTS 

BASE 

prpBim 

MODULE 

COST  PER 

ITEM 

REM/100 

;r«*i7/30ooo 

VIVE 

PIPE 

qty/mod 

PRICL 

MODULE 

-T.2259 

D.OTHT6949 

1 

*7 

0.00328 

360000 

ttjto 

2 

3.79J0 

0,0021528 

4 

2 

0.00861 

67426 

580 

3 

3.1373 

0.0017779 

23 

4 

0 . 0471 0 

177070 

7D97 

4 

4.55|8 

0,0025833 

3| 

8 

0.09300 

70400C 

65471 

5 

2,3922 

0,0016339 

29 

3 

0 .“04TA7 

1 3 1 3 2 B 

6180 

6 

1,6176 

0,0009157 

19 

5 

0.01753 

15900C 

2877 

T 

0.7598 

0 ',  CTO  0 4 30  6 

16 

7 

0.00639 

2 3 OOP 

1 6 8 

8 

3.3578 

0.0019028 

0 

1 

0.00190 

0 

0 

TOTAL  83563 


Table  11  (a) . 

-TRATfSPOSTjTiOr  COSTS — 

URTs  * 15/  TRAfTSpT  T5WYEAR 

ITEM  lOUlNCUTUPe  REMOVALS  200  CST/ReM  COSTS 

— ---i— -r 


EN3 

COMPLETE  EW5. 

6-  - 

7*1*57 r~ 

"5770 

2230 — 

1 

700  AU3MENTOR 

2 

011500 

2066 

309 

2 

100  sen  WLL 

135 

tl J625D 

— fr- 

— £ - 

3 

300  FAN 

135 

9J3750 

888 

3325 

4 

400  COFE 

116 

1319500 

20^3 

28097  

5 

500  U P IURB 

117 

817750 

923 

3711 

“6  - 

670  TEN  58  TUR" 

ft 

♦17700 

1 T 0 T 

5 313 

7 

900  5ESRBOX 

J1 

213250 

200 

45U 

8 

900  8 UC 2 WOLl 

0 

9 

0 

BOODLES 

TOTU^ 

45203 

1 

<N 

1 R •*  N T'JT  J L 

<TBT5T 

L 


Table  12. 


P A '*'  £ 19 

LIFE-LIMITED  P*KXS  R ? P t A C W 5 T COST? 
rop  15-rEjkR  Ufa  crctB 


>>>  400  C0«E 


PaPT 

so; 

PART 

RASE 

TOTAL  SdHjD 
RHVl( 200T1? 

sched  bmvl 

UNIT 

total 

( 15TB)' 

PBTCE 

15*YR 

• m 

16 

400 

CORE  5UHHY 

0 

0. 

5500 

0 

1 7 

401 

4Sr;  SEAL 

10 

ottstoo 

1097 

819 

18 

402 

5ST3  SEAL 

6 

3.45000 

1280 

576 

19 

403 

ssr;  SEAL 

11 

0182500 

7429 

~7vn* 

20 

404 

7ST3  SEAL 

9 

0.67500 

1163 

785 

?" 

405 

8 S 1 3 SEaL 

7® 

1 220000 

1 7 li  2 

2090 

•*0  6 

9ST3  SEAL 

16 

1.20000 

1118 

1341 

23 

407 

10STS  SEAL 

16 

1:2000c 

3292 

39TO  " 

24 

408 

1 -1  S r 3 S F A L 

16 

1.20000 

3306 

3969 

25 

409 

S £ ^ L 

16 

T;  20000“ 

3769 

4042 

26 

4 1 0 

i3srr.  sfal 

6 

3.45000 

5283 

2377 

27 

4 1 1 

4?T3  OISE 

' 6 

0 1 45000 

4 708 

"21  tb  ' 

28 

412 

5ST3  DISK 

7 

3152500 

3893 

2043 

29 

4 1 3 

6 $ r * D X 5 K 

4 

or3oooo 

817® 

244  0 

30 

414 

7 S r 3 DISK 

17 

1 ; 2 7 5 0 0 

6764 

8624 

31 

415 

8ST*  $ 1 5 K 

12 

0.90000 

4048 

9003 

32 

4 1 6 

9ST3  DISK 

11 

3.92500 

8549 

7052 

37  ' 

4 T7 

lO’ST'S  DISK 

3.45900 

iron 

TTO8  ~ 

34 

418 

1 ;srs  disk 

6 

0.45300 

6448 

3801 

35 

4 1 9 

I^STP  D £ S K 

9 

3 : 67500 

4 6 m 

3132 

36 

420 

1 3 S 73  DISK 

7 

0.52500 

8486 

4455 

37 

421 

*5AF  SHAFT 

6 

0.45000 

9793 

9 BO  6 

lUDUtB  3UBTWTA4 

“75T9T" 

53 

I 

L J 


Table  13. 


OBJBCTIVI  ruRCTXOS  FVGE  21 

sjfiifnprx 

TT0mT7TrrT51 

DATE  " 061???  ~ TTME  Tl7S6~5Et  2IF 


ITEM 

T — » — 

EN'3 

1 

* * * : 

ALONE 

SAINTENARCE  COSTS 
ALONE  WJTH 

• t • 

H»E 

“ TRW5- 
PORT 

PARTS 

15-]fElR 

B A S E 

747*6 

2719 

uirpor 

262 

DE  JUT 

rofAts 

* 

C05T5 

C05TS 

COSTS 

C05TS 

7110 

81696 

53833 

2250 

137979 

0 

1351 

1180 

309 

0 

45u0 

2 ' 

V 

~9BT£r  - 

m 

"TinTT" 

580 

0 

86271 

97002 

3 

118 

30000 

1200 

31388 

7097 

8325 

43131 

8994  1 

4 

0 

84049 

2711 

8 175  9 

5367T 

28091 

65195 

2455Q6 

5 

63 

13223 

335 

13625 

6180 

3711 

75635 

99151 

6 

10 

14496 

906 

15482 

2877 

57TT- 

47013 

64685 

7 

0 

2478 

159 

2637 

158 

464 

1641 

4900 

5 

'■  0 

or- 

9 

T 

0 

3 

0 

9 

mod  ro  r 

3120 

134341 

56<»1 

H31D2 

03543 

46203 

J12886 

605730 

grand 

TOTALS 

244999 

15T37S 

46453 

J 1 28  86 

743713 

54 


Table  14. 


* 

date  06187? 

itei 

name 

SCREEN.  «*I3 

CONSTANT 

screen 

interval 

Rate  4 kEKOVaLS  PE8 
SUfluAR* 

1000  FH  * 

time  ii. 

46  SEC  24 

* i d x 

NETS 

r 

t A l * 
REM/ 

* * F I N 

N R rs 

A L * * 

REM/ 

HUE  * 

5000  PU. 

m — «*  * • • • • 

rate  k 

1008  ITT. 

C ’LSTE  EN3. 

4;70 

4.7000 

1.17 

12.5735 

7 00  AJS'lEN’TOR 

130 

9.00 

1.0904 

4.00 

1.2255 

ioo  a:ci  wll 

100 

0. 

0.' 

1O0.0O 

3.7990 

300  r AN 

100 

»8.*50 

0.2132 

97.66 

3.1373 

400  CORE 

105 

a b . 0 o 

0*0622 

TTnrrtTo 

4755T8 

500  H P TUgB 

100 

70.'00 

0.0588 

99,15 

2.8922 

600  FAN  DR  Tt'R 

100 

53.00 

0. 1892 

96,97 

1.6175 

800  SSARBOX 

100 

77.00 

0.1786 

100,00 

0.7596 

900  a:c2  von 

100 

0. 

3.1443 

a. 

3“.  3 378 

ROLE  3P  X WAS  4 


>>>>  * jtrcmse  pat  a * «<<< 

E K 3 1 S B RE *10 v A L_3 PAS.U 1 

RgPaRr  PERUO  SUMflARt  _ 

r lJOptMOO  ( FI 55 


SEED  RUN  2 

INPUT 

OUTPUT 

PEM/IOOOFH 

4.7000 

12.3839 

SIMULATION 

PERIOD  IS 

4D8Q0 

nets  X 

4.70 

i.09 

REPORT  period  is 

40PQ 

life  period  for  objective  function  is 

15  TSARS 

MONTHLY  UTILIZATION 

rate  is 

17 

flung 

HOURS 

warmup  yjs 

seed  is  random 

NUMBER  OF 

MODULES  8 

RULE 

OF  X WAS 

4 

SNUHC 

rnmm^mrn 

removals 

■»  — • 

* * tfSASR 

* ♦ * — 

« « « f Z ^ 

REPORT 

9Ng  MOD. 

many. 

many 

ORE 

PERIOD 

TAILS 

mods, 

mods. 

MOT 

K HOURS 

EARLY 

eau* 

UtT 

reached 

TOTAL 

m m mm  + 

1 4080 

1 

0 

12 

14 

~31~ 

2 8160 

iO 

1 

27 

20 

58 

3 12240 

8 

1 

27 

12 

48 

4 15320 

6 

1 

29 

13 

49 

5 20400 

7 

0 

29 

14 

50 

5 24U80 

9 

0 

28 

12 

49 

7 25560 

9'  ' 

0 

2T 

13 

$0 

8 32640 

•0 

0 

23 

17 

52 

9 35720 

7 

1 

28 

12 

48 

10  40800 

6 

0 

30 

18 

54 

— 

m mm  m 

•*-- 

• -*« 

-•  r- 

totals 

79 

4 

283 

145 

511 

SEED  TOTAL  1004 


A 


56 


Table  15.  (cont. ) 


* 


>>>>  * AVERAGE  DATA  * <<<< 

objective  function  page  3 

sHWaTY 

?100Pw100(F15) 


date 

06  1 el  7 ^ 

TIME 

11.46 

SBC  46 

* * * MA 

TNTEHANC 

E CQStS 

ft  ft  ft 

5ipe"’ 

TRANS 

ALONE 

ALONE 

with 

line 

PDRT 

PARTS 

13-TEA* 

I TEA 

base 

DEPOT 

DBPOT 

TOTALS 

COSTS 

COSTS 

COSTS 

costs 

--- - 

rnmmrmm 

+ • • — r • •» 

5N3 

72  M2 

6»ia 

79200 

52336 

2063 

133609 

1 

2 = ?3 

328 

0 

2856 

1145 

387 

0 

4388 

2 

2 

11167 

317 

11434 

65§ 

0 

65892 

98035 

3 

251 

30120 

960 

31331 

7135 

8 358 

43358 

90182 

'4 

3 

83596 

2485 

8608  1 

63120 

27930 

65002 

244133 

5 

55 

1 0680 

283 

11059 

4995 

2993 

75632 

94683 

5 

ao 

14722 

906 

iftyr 

2922 

~T396 

41013 

6S039 

7 

0 

2558 

119 

2677 

163 

480 

1667 

4987 

3 

0 

0 

5 

5 

0 

0 

0 

5 

MOD  TO  T 2’34 

<53171 

5Q75 

I8l200 

8 a 1 3 § 

4554  9 

5 12564 

601482 

G R A MD 

totals 

2 »Td  4 0 0 

134485  “ 

47612 

312564 

“715061 

S.  0 

totals 

480794  2§896« 

99220 

625125 

1470105 

~Sf  RITES, 

>>>>  * 

A V Er  A 3 E 

DATA  * <<<< 

¥ 

SlXS  RATE  6 REMOVALS  PER 

1000  "H 

* 

SUHMART 

DATS 

06137? 

TIME 

11.46  SEE  46 

>>>  * AVERAGE  * <<< 


ITE1 

fONSTASl 

SCREES 

* 1 8 i r 

SRI8 

I A L * 

R 8M  / 

» * r i s 

NRTS 

Air* 

REM/ 

name 

interval 

Rate  k 

IJOO  PH. 

RATE  \ 

1000  PH, 

’ 4f  ■*  • • • 

- * 

complete  eng. 

0 

r*> 

• 

a 

4.7000 

1,09 

12.3039 

700  AJGMENXDR 

100 

9.00 

1.0904 

5.57 

1.1275 

100  ACC1  NLL 

109 

0. 

0. 

102.00 

4.3137 

30C  FAN 

100 

56.00 

0.2632 

96,92 

3.1740 

400  COPE 

100 

85030 

0.0852 

100,^3 

4 5 3 4 3 

500  H P T0|6 

170 

70.30 

0.058« 

98.22 

2.3529 

600  FAN  DB  TOR 

135 

51. 70“ 

"0.'7  692T 

9 7 1 r f 

1.6422 

800  gearbox 

no 

77.00 

0.1786 

100.00 

0.7843 

900  a:c2  wj)ll 

100 

0." 

3 . 1 4 u 3 

0. 

3.2475 

R 1 or  X tfAS 

4 

sw  wstht  mi's  i t:tt~  wtrnniT  i-rsTyrr- 
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Table  15. 


(cont . ) 


>>>>  * AVERAGE  DATA  * <<<< 


MODULE  REMOVALS  R* Y PJTTg  T 


DXrB  ■ ~ £I«E  MTU  5 


MOOULJ 

* * 

* PRIMARY  * 

constant 

>1  NOMENCLATURE 

USE 

U-DCP 

TIME 

SCREEN 

total 

interval 

1 “7  JO  KuirtErros 

~ 46 

i • — 

** 

”0 

T~ 

15 

45 

TOTT" 

2 100  acc i m 

0 

0 

89 

93 

182 

1 00 

3 300  Fan 

10 

0 

67 

58 

'^T5~ 

Tpo  ~ 

4 400  COR| 

4 

0 

111 

76 

193 

ICO 

5 500  K ? TORS 

4 

3 

79 

“IT" 

~ 1 07“ 

TTTCT 

6 600  TaN  D*  XUR 

7 

0 

40 

25 

72 

ICO 

T SJO  3£Ar32X 

1 

a 

9“ 

2U 

3 4 

100 

8 900  ACC2  VOLL 

133 

a 

0 

0 

133 

too 

GRAND  TOTAL 

205 

a 

395 

293 

893 

SEED  TOTALS  407  0 7 8 5 58  1 1774 


Table  16. 


daTai  actuarial  input  FACTORS  PA3E  U 

E^SXWE  F100PK190( f 13 » 


DEPOT  PT?F  IS  42  BASS  PIPE  IS  4 LIST  PRICE  IS  1700000 
DEPOT  MAlNT  COST  IS  13301  QAaS  MaIST  COST  IS  161 


700  AU3MENTOB 


depot  pipe  is  22  bass  pipe  rs  # list  p«ide  rs  36DOO& 

DEPOT  •'  AIN'T  COST  IS  1753  3ASB  Ma  INT  COST  IS  775 

TRANSPORT  TOST  2063  MARHDuR  OaU  JtT 


P;PI 

PART 

TONyESTT  HIT,' 

"5  HOT  SCUTE 

TNTT 

MO . 

NAME 

PATIO 

II! IB 

PARAM 

babam 

PRICE 

1 

700  A 0 3-i  DUMMY 

1.000 

oooooo 

2, CO 

974 

0 

100 

ACC  1 «LL 

DEPOT 

1 ptpE  IS  4 

BASE  PIPE  IS  2 

LIST 

PRICE  IS 

67426 

depot 

1 MAIN?  COST  IS 

345  5 A S S SAINT  COST  IS 

Bu6 

transport  cost 

0 

fUNaoga  data 

23 

part 

PAR* 

CONVERT 

MAX, 

SHAPE 

3CALE 

UNIT 

<10 . 

NAME 

RTSTIO 

ITME Par  A” 

PTBTR 

PKICE 

2 

100  ACC;  DUMMY 

1.000 

oooooo 

2.00 

990003 

20000 

3 

no  Fair  ra  ocr 

1.800 

1250 

3,00 

990000 

6209 

u 

111  3 FF  OCT 

1.50Q 

1250 

5.00 

993*500 

90*53 

5 

301  VANE 

1.50Q 

1000 

5,00 

990000 

3890 

6 

"30  2 VJN5 

1.S08 

12T5D 

*~5TU5  * 

9yU0Q3 

STB  * * * 

300 

FAN 

DEPOT 

plpl  IS  23 

BASE  PIPE  tS  4 

LIST 

PRICE  IS 

177000 

DEPOT 

WMNT  COST  IS 

3200  BASE  HIST  COST  IS 

839 

TRANSPORT  COsT 

saa 

"ANHvQR  tat* 

To 

PART 

PART 

CON4ERT 

MAX, 

shape 

SCALE 

UNIT 

WO. 

•’AME 

RATIO 

TIME 

paRam 

PARAM 

PRICE 

7 

300  fan  dummy 

1.000 

oooooo 

2.00 

4033 

2500 

B 

303  TST’S  DISK 

2.200 

3400* 

* 5700“ 

990  300 

73  10 

Q 

304  2sr;  di.sk 

2.200 

3300 

5,00 

990000 

6054 

10 

305  3ST0  DISK 

2.200 

3000 

3,00 

990000 

50  16 

1 1 

3 D 6 ISIS  SEAL 

2.200 

1 oooo 

5,00 

990000 

1848 

307  ERN T SEAL 

2.200 

10000 

5,00 

990000 

1106 

13 

3 0 e RpA  S SEAL 

2.200 

1 0000 

5,00 

990000 

13  47 

*1 

309  RETAINER 

2.200 

1OO0O 

_ 5 , CTO 

9 y 0 0 0 D 

Tsvr 

310  2 ST 3 SEAL 

2.200 

1 oooo 

5,00 

990001 

2045 

59 


r — "J 

F 

Table  16 . (cont. ) 


U00  CORE 

DEPOT  PIPE  is  36  BASE  PJP&  IS  8 USI  PRICE  IS  7^4300 

DBPTT  NXTSX  COST  IS  *025  BASE  ’tSTflT  C05*  IS KT5 

TRANS  POST  COST  2013  MMHDtfR  0 A T A 213 


f 


PART 

PARI 

CONVERT 

MAX, 

SHAPE 

SCALE 

UNIT 

*0. 

name 

RATIO 

TIME 

pa*am 

PARAl 

PRICE 

16 

400 

CQR £ 5UMMY 

~1 . oOO 

000009 

T.oT 

TT§TT— 

TbOO 

17 

401 

4STi  SEAL 

2.200 

9u  0 0 

5.00 

990000 

1093 

IB 

402 

5ST3  SEAL 

2. 200 

1 7500 

5,00 

990000 

1280 

19 

403 

SST3  SEAL 

2.205 

3200 

5.00 

990000 

1424 

20 

404 

7ST?  SEAL 

2.200 

11000 

5.00 

99000^ 

H63 

2 1 

405 

BSTO  SEAL 

2.200 

5600 

5,00 

990000 

1742 

22 

406 

fsfrs  seal 

2.200 

ssoo 

5 . O0 

99000  3 

1118 

23 

407 

10STG  SEAL 

2.205 

5600 

5,00 

990000 

3292 

24 

408 

1 1STG  SEAL 

2.200 

3600 

5.0  0 

99000’'' 

3 306 

2 S 

40S 

1 2ST3  SEAL 

2.20  5 

5600 

5,00 

990003 

3369 

26 

4 1 0 

13575  SEAL 

7.200 

1 3000 

5 . JO 

990000 

5283 

27 

4 1 1 

4SIJ  DISK 

2.200 

1 5000 

5,0  0 

99O0Q0 

4708 

28 

4 12' 

55 IT  DISK 

2.290 

1 3000 

5 , 0 0 

99000 T~ 

~T»93 

29 

413 

*sr;  disk 

2.203 

21000 

5.00 

990000 

8 1 34 

30 

414 

7sr;  disk 

2.200 

5500 

5.00 

990000 

6764 

31 

415 

8 SI 3 DISK 

2.205 

7500 

5.00 

99000*' 

H4? 

32 

4*6 

9sr;  disk 

2.200 

8300 

5.00 

990000 

8649 

33 

417 

10ST3  DISK 

2.200 

1 5500 

5,00 

99000'*' 

4441 

3 4 

4 1 9 

MSTS  DISK 

2. 200 

1 4000" 

57o3  " 

990000 

8448 

35 

4 1 9 

1 2 S T 3 DISK 

2. 200 

1 3300 

5.00 

990007 

464  1 

36 

420 

13ST3  DISK 

2. 200 

1 SSO0 

5,00 

990000 

0406 

37 

421 

RJAS  SHAFT 

2.200 

15500 

5,00 

990000 

9793 

500  H 

P I0R3 

DEPOT 

PIP 

' E 13  29  RASE  PJPE  18  3 

LIST 

price  is 

13'02R 

DEPOl 

MAIN!  COST  IS 

1 5 0 7 g A g E HINT  COST  IS 

050 

TRANSPORT 

‘ COST 

423 

M A N il  0 U R DMA 

158 

■ . . ___ 

past 

PART 

CONVERT 

MAX. 

SHAPE 

SCALE 

JNIT 

no; 

name 

RATIO 

T Trt  £ 

paTam 

FaFam 

PRICE 

30 

500 

HPT  DUMMY 

1.000 

003000 

2.00 

18  034 

5500 

39 

501 

ISIS  DISK 

2.200 

9100 

5,00 

990000 

1 4533 

40 

502 

2ST?  DISK 

2.200 

9800 

5.00 

990000 

176TB 

a 1 

50  3 

2S  75  DISK 

2.200 

1800 

5,00 

9 9 0 0 0 0 

10U75 

4 7 

504 

isro  pplt 

2.200 

1800 

" 3~,150~ 

99W07 

515  TT 

43 

505 

1 s T 3 JJPLT 

2.200 

1800 

5.00 

9900  0 3 

98 

t 


- 
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Table  16 . (cont. ) 


600  FAN  0*  XUR 


DEPOT  PIPE  I?  19 

BASS  PI?C 

IS  5 

list 

PRICE  rs 

169000 

depot  m a i NT  ro'sr  is 

3020  rilsE  A C8Sf  IS 

5T(T 

transport  cost 

1107 

manhour  o»ta 

1 1 3 

part  part 

convert 

MAX , 

shape 

SCALE 

UNIT 

NO.  V A M E 

RATIO 

TIME 

pa'Rah 

»A«aM 

PRICE 

4 4 500  FQT  D'JTIMY 

1.0CQ  303000 

Z.ffO" 

rm~ 

— - ■ TT1S 

— 

— 

45  501  3$  Tl  DISK 

2.200 

3300 

5,00 

99000  0 

8024 

46  502  4ST3  QlSK 

2,200 

3003 

5,03 

990603 

5502 

47  503  4 S TO  DISK 

2.200 

1 0000 

5.00 

990900 

15017 

800 

3EARB0X 

DEPOT  PIPE  13  16 

BASE  PIPE 

IS  2 

LIST 

PRICE  IS 

.3000 

DEPOT  MAI-NJ  COST  IS 

1066  3AsS  HilST  COST  IS 

299 

TRANSPORT  COST  209  MANH3UR  DATA  13 


PART  part 

convert 

MAX,  SHAPE 

SCALE 

UNIT 

NO.  NAfi'E 

KATXff 

TTHT  PaRATT 

^ k R ?.  rc 

PKlCX 

48  300  3S0T 

DUMMY  1.500 

2000  2,05 

5§44 

664 

DEPoTTpIpE  17 

900  A CC 2 «0Ll 

0 BASS  PIPE 

1ST  W 

pTTfCE  Ts~ 

T~ 

DEPOT  MAIN!  COST  IS  1 24 

9ASS  MAINT  COST  IS 

0 

transport  cost 

0 MaNUOUR  O&Ta 

16 

Part  part 

CONVERT 

max . shape 

SCALS 

WIT 

wo.  name 

R AIZQ 

time  pa«a« 

*aRam 

PRICE 

4 9 300  A CCS 

DUMMY  1.300  000003  2.00 

33S 

0 
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VI.  Program  LAU/0MENS2 . S , R 


1.  This  program  is  written  in  FORTRAN  for  use  on  the  CREATE 
system  in  AFLC.  The  CREATE  system  is  a time-sharing/batch 
computer  system  which  uses  the  H635  computer.  This  program 
can  be  run  in  the  background  as  a batch  run.  It  is  stored  in 
file  LAU,  under  the  name  0MENS2.S,  and  can  be  called  after  the 
urer  is  logged  on  under  the  CARD  system  by  typing  OLD  LAU/ 
OMENS 2 . S , R. 

2.  Purpose  of  Program:  This  model  simulates  the  operation 
of  a single  typical  engine,  F100PW100,  installed  in  an  F-15 
aircraft.  Each  engine  has  m modules  and  each  module  has  j 
parts,  one  per  module  may  be  a dummy  part  which  is  included 
so  that  module  removals  not  caused  by  one  of  the  other  j-1 
parts  can  be  accounted  for.  The  engine  removals  are  driven 
by  removals  required  on  the  m modules  (one  of  which  is  the 
engine  "dummy,"  i.e.,  Accessories  - 2).  The  module  removals 
are  driven  by  the  part  removals  required  on  the  j parts. 
Premature  removal  rate  factors,  initial  NRTS  rates,  and  life 
limits  are  needed  a3  input  for  the  model.  The  model  produces 
long  run  (based  on  input  life  cycle  time  removals) , classified 
into  usage,  time,  and  screened  out  reasons  for  removal. 

Report  periods  are  variable,  also  stated  at  input  time.  The 
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model  is  used  in  (1)  simulation  studies  whose  objectives  are 
to  identify  preferred  opportunistic  replacement  policies  for 
each  module,  (2)  to  calculate  composite  removals  per  1000FH 
and  corresponding  aggregate  NRTS  rates,  (3)  to  calculate  an 
objective  function  yielding  maintenance,  pipeline,  transporta- 
tion, and  parts  costs  for  a chosen  life  cycle  period. 

3.  The  Dimensions  and  Declarations  are  presented  at  the 
very  beginning  of  the  program  and  continue  through  Line  400. 
Comment  statements  are  used  to  set  off  different  segments 
of  the  program,  as  shown  in  Line  80. 


C.  AlDG/rliK  DESCRIPTION*  UJ/3UENS2.S 


1D##»0RM 

23$:irMITS;u,40K,,5K 

3DS:IDfNTSWP'271,XRSL/JtKrA  0«BkS2,S 

uOStOPTlO^JPQRJJRAN  

5D$:F3msDe:K.NlN0,NF08M 

6 

7 DC 

8 DC  DIMENSIONS  AND  DECLARATIONS 

9DC 

IDO  CHARACTER  ENOINE*1(i,^OQULE*l4»PAlir*l4/l!lAR!iUP*3.S0TyP*8,XDASB*e 

110  CHARACTER  INDATA*5.KRScSN*8,kONPeR»8«BLKAVS*19 

125.  para  idL. « « »8. JJ«49.kk«1  0ajlh  a 4 

130  DIMENSION 

140  01  MEW  si  3N  MSCRN(mm5  , 8NRT3PCI  Ml) , BRKPH(Mfl)  *rKRrSPC(H«),  KPV(DM) 

150  01  MEN  SI  5K  PRKFHfMMj  ,R(  JJ)  ,s»p(  JJ5  # ALOCt  JJ)  »SCL(  J-J)  . JPN0T( Jd ) 

150  DIMENSION  NauSE1(fCK).N3UsK2(KIC)#  VSOCHadCK*  a.  M 9 ? « 1 ( K K> 

170  DIMENSION  N3TOT8  { KK ) .MRTS(rt!11  .HONRISfHN  WtCtiCSTI  (MM)  , LCMCSS2 < ) 

13  0..  jx.fij5LS.ui.  Mamin  oi 3j  mj  


DT'*E'!Srj'J 
'E ‘‘S'  ^ ^ 
OITE^SIJX 
3?  E ‘ S X 3 K 
3?  'IK'JS  ION 
IT  " K N’  S I 0 S 
3lv,E'<St;s 

3IME';SI3« 
3I“E';SIPN 
31  ■‘E'js:  jN 
3I’iE',SI3N 
2I^SVSI2N 

)T,'E^Sr2N 
3T'tE'ISI3'l 
3 7 7 E S I 3 N 
Sl-E'iSIJN 
3ll£‘JSI3N 
3 1 '1 E V S 1 3 K 
OirE^SIiN 


-KUHalsf  , ixjSN'rs  ( a^\  . r.  \ ■ z:  w r r f 

' X 0 K V B T 3 ( “ • 1 1 , * 3 1 ■ : * f 1 * , !C  K ' , 1 p r'  'ST. 

‘13DTr2M“.N^).'tA3T‘  *i 
13n3C»(*S#<K)#3'T  S • • , ■ ,■•■•:-,/  - 

t 7*1)  , tiror?  i -i) , irjr-  m .«yv? 

jscl(  jj)  . Jusk  jj)  . jr*r  j3 1 . jscp  u ' 

JPART( J J)  , 1 0 o ( 1 M ) * t*  'if  ) , J TO  IP  ( " ' . 
‘'!3Br«CSP(rt  1)  ,Pj'»>5r(  , !1JTOLRTi*V 

MJT1T  ( 71  j . Use  Rtf  «rt)  , IjrorST'  *Jfli  , J“ 
JT?SCH9(JJ)»jTtCPr3?( ' 
*.  p p I p E ( iw)  «>V  oPTprsr  i , ’ 

MppcsT(i!i)*WBS:sr<Mi),t;»ic3T(*5<),t': 
DTcicDPC'i),pifFjrY,i(i*i).r^c*«N-Prs( 
jrTP(jj).jrTt(jj'.nSLP('’vt',  tst  ?■  j j j 
*■  R * r 11  D ( Mi)  , F R K F H C ( M '1 3 , D E P P C ■ “!  ■M  , " 'I 

tui’SEdi) , :iauP(mi* . m a r *- ( in’ , ias  :t?r 
rtxspcsjijj Mjcl_t_P  [ v ' , lx:sj:<4  < imj  fc j.r  > 
»9U1{KK)#Hi«2(«K)»*3ri  (ICIt  ) »»3^2fKK 

nrBCSTf  A A)  . HBSSP'lHf  ,l«l)  . LCMTR A N S f 1 V 


i r v r c * ' 

r e*  f t - * 


't\ 

1 ' J i , »•  > 


r r g y < 

; ; h * / : , 


1 > n ■ • 

1 J - - f M . 


4.  The  Main  Routine  is  in  Lines  410  throuoh  19 ?o  ? h< 


routine  starts  out  setting  the  date  and  tine  m he.  .rr 


minutes,  and  seconds.  Following  this,  initialization. 


warmup  options,  and  table  headings  are  came  l o it.  Th“  n* 


computations  are  done  in  the  many  GO  TC  statements  show:  Lei:w. 


)C****MA7N******* 


: set  6^ r b and  tuie 

3PTP  103? 


REAP  IBPUT  PATA 


1 50 3 30 TO  9000 


i:  rmnuiz!!  ml  »c:umulaT3«s 


8900  30 ro  750 


2 GO  xo  900 


A 


527: 

526  6 GO  TQ  MOO 
529: 

530:' 

5^0:  INITIALIZE  JTTF(J)  AND  J T T i.  ( v7 ) FOR  ALL  J PARTS 

550: 

560  200  GO  rj  3100 
570: 

580:  rfARMUg  DESIRED 

530: 

600  240  IF  CIUT,  NS,  1)  30  jQ  1 
6i0: 

620:  VARflUP 
630: 

6.1*5  2iQ_  GO  13  .it  1.90 

650: 

660:  SCALS  REPORT  PERIOD  COUNTERS 

670:  INTERVAL  WIDTH  ■ ISPUT  REPORT  period 

6?o: 

6 30  1 99  KL&sr  = (PL0AT(t»lMP»Bl/rt3fcr(ia»*t*Dn  + .9 

_7_10  IF(KLASr.LE.KK)  30  TO  203  

710  PRINT  M83 

720  1 483  F05*sT("  - , - P k R A Mg!  BR  K*  t»  LINES  1 030  AND  146  0 TCO  SHALL") 

730  STOP 

7 

7 ..  j J fOR  F^:s  gEPORT  PE8I0D,  < 

760: 

Q765C***  *********  **************** 

770  1 DO  100  K ■ 1,KLASt  

0775C  **************************** 

780: 

790:  FIND  1T»  time  til  failure  and  mik  time  til  limit 

800: 

810  5 GOTO  4200 
820: 

830:  :ount  multiple  parts  removals 

940: 

350  10  30  to  4300 

- 860: 

S70:  removal?  this  repost  period* 

8 8 0 “* 

8 90 " 2 0 rr(MINr;LT.N3)  SO  TO  40 
900  lF(MINL;Lr.K3)  so  to  43 

9 1 c : 

9 20:  No  REMOVALS  THIS  tt>QM  flllOO 

' 9 30 : 

940:  JPOaTE  all  PARTS  FOR  ReMaINInS  the  in  this  K PERIOD 

950  SO  TO  4400 

960:  ____ 

97': 

980  35  30  TO  100  __  _ 

9? 
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1 303C  COD*  REASONS  FOR  REMOVAL  TOR  PARTS,  MODULES,  AND 
101  DC  FOR  EN3INE,  AND  APPLY  SCREENS  AND  TOLERASCE  INTERVALS 
1 323C  AND  REPLACE  REMOVES  PARTS 
1 330C 

1040  40  SO  TO  |£M 

1 050C 

1 060C  REC050  ALL  PARTS,  MODULES,  8*31*8  REMOVALS 
1 0 7 OC  ENglRF  REMOVALS  Bit  REPORT  PERIOD,  K 


13B0C 

1090  50  GO  12  5100 

1 100C 

moc  module  removals  top  engine  brts  asalysis  reports 

I 120C 

1130  50  GO  T2  5105 

1140C  

1150C  MODULE  REMOVALS  Bi  REPORT  PERIOD.  k 

1160C 

1170  70  GO  r 3 5135 

I I a oc 

1190C  MODULE  REMOVAL  SUMMARY  SY  OaUSC 

1200c  

1210  30  GO  T2  5145 

_ 1 220C 

1 23  OC  PART  REMOVALS  BY  CAUSE 
1 2U  OC 

1250  90  GO  TO  5155 
1 26  JC 

1 27  OC  REPLSC8  REMOVED  P&RTS 

_ 1232SL 

1290  95  GO  TO  j200 
1 30  0 C 

1310C  FIND  TIME  TO  NEXT  REMoV*L  Op  E*SlNE,  MODULES,  PARTS 

1 320C 

1330  97  GO  13  5 

__H(L2C  JJlLXj  * FJ6 IlflJi 

1 350C 

1353C  ************************** 

1360  100  CONTINUE 

1365C  ******************  * * ****** 

1 370C 

13  4aC_XRB-flJ!JlUI  " AElDJfAL  TABLE* 

1300c 

1403  30  TO  5300 
1 4 1 0C 

1420C  OUTPUT  --  REMOVAL  TABLES 
143  3C 

1.440 . 10  3.  30  TO  5600  ... 

1 U52C  
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OBJECTIVE  function 


63C  pRE-gurpt/i  — 

,73C 

1480  106  op  ro  7300 

1 4930 

1 503C  OUTPUT  !X  3«lC2JJj_laESliajl  — 

1510c 

1520  107  op  TO  7400 

1530c 

1 540C  OUTPUT  5CREEN,  M«Ts,  R5H/l00eFH  SUMMA  8 X AND  ACTUARIAL  JNPUT 

155  0C 

156J  ips  *o_  rg_  82o_o  _ _ 

1570c 

1 5s  OC  AV  E*ipS  DATA.  OR  PalRl  ACTUARIAL  01?*  t99?7) 

1 59  0C 
1 60  DC 

1610  9992  IFUSMAX.E3.1J  JO  To  9997 

1.523  30  TO  |600 

1 6 3 0 C 

1640C  AVERAGES  PRINT  ROUTINE? 

1 6 5 0C 


1560  9993  IAVSsIAVS+I 
’0  PRI^T  9994 

lo 53  9994  FORMAT ( " 1 " , T 2 3 » " > > >>  * aVB*A3E  OATA"*"  » <<<<") 

1 59  0C 

1700  IF( IAVS.EO, 1 ) SO  TO  1033 
1713  IF( IAV3.EQ.2)  50  TO  6403 
1723  lF(I*V3tEQt3)  50  TO  8103 
1733  30  TO  J999 

1 74  0C__  _ 

1 753C  HAL?  PAGE  averages 

1763C  

1773  9995  PRINT  9996 

1 78  3C 

1 793  9996  FO 5 M AT  ( - 0" , T 2 5 * "> > > > * A/ERaSS  DATA**"  * <<<<"') 

1 aooc 

1813  GO  TO  3208 
1 9 2 3C 

1333C  PRINT  INPUT  DATA 

1 043C  

1853  9997  50  TO  9300 

18625 

1 9 7 3 C 

1 38  0C  END  9 F COMPUTATION 

1 393C 

1903  9998  SO  TO  9999  

1913C 

1 9 2 DC  * * * * END  Of  MAI*  * * * * * 

1 a 7 3 C 
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5.  The  rest  of  the  program  consists  mainly  of  a number  of 
subsections  and  initialization  logic.  The  following 
paragraphs  will  provide  additional  comments  about  each  of  these 
sections . 


6.  Initialize  Average  Accumulators/Set  Date  and  Time.  This 
section  of  the  program  initializes  the  average  accumulators 
for  the  averages  tables.  The  date  and  time  are  also  set  in 

this  section.  The  monthly  utilization  factor  is  also  computed. 

13  3 5C  IdlUHIfE  AVERA3E3  ACCUMULATORS 
1 9 3 6 C 

1943  1000  I A / G s 0 

1950  B1KAV3*"  « 

1963C  _ 

1970  ISdROn  • 0 
1 98  0 1 020  ISBRttM  ■ iSDR'Jl*  * 1 

1 39  DC  SET  P A TE  AMD  TIME 
2000C 

2010  CALI  ADAlEfXDATE) 

2020,  1030  CALL  TXK!?(  ITXlE ) 

2030  TTIlt  * ?L0AT( iTtflE ) /W**T 
2040  HTI"5  «=  ?L0AT(  ITlrlE)/lO**5 
2050  K XI  'I  t * IRlXfKTl'IE)  *100 
2060  sriip  * FLOAr(irri8)/io**3 
2070  jxiiE  * irrx(sriiE) 

2080  mi*  £ JTIME-ICri.lS 
2090  ‘iMTTITe 7 3 f , 4 5)  PiiftE  ■ 

2 100C 

2110  1 0 U 0 XP3  s 0 
212  0C 

2 130  1 0 50  If  U^V3, 50.  1 ) SO  TO  57 0o 
2140C 

"2150  IP  (XSPSIP.afTT)  S 

2 1 6 0C 
217  0C 
2 1 8 0C 

2l°3  GOTO  1500 

2200C  _ _ 

2210C 

2220C  COMPUTE  MOMTHLI  UTILIZATION  factor 
2233C 

2240  750  OCOEVg  • 1000.3*30.0 

22?o  roc*  ■ rrix(ocOMFR) 

_32&l£.  
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7 . Subsection  2260-3690,  Initialize  and  Define  Run  Variables. 

This  section  of  the  program  defines  the  run  variables, 

initializes  accumulators,  and  reads  the  user  input  data. 

2 2 6 DC  - - SCREEN  POLICIES  - * 

2271C 

22*0  DATAfB5CRN(I),I-1.8)/8*l*30/ 

2 2 9 0 omfKPVfU#  1-7.8  5/8*0/ 

2 30  3 DATA*  JPNQT(I),I«1. 491/48*0/ 

2302C  RUN  VkBIABLIS  DErz»|0 

231DC 

2 323C  ISI'iyRS-tOTAL  NUBbBR  Of  3I«BUH3D  TEARS 

2 3 3 3 C ISIBPRP.NUBBER  3P  SIMULATION  xEaBS  IN  SIMULATION  PERIOD 

2340C  *ONUTR*MD»THLX  UTILIZATION  RATE;  ta»TPRD«NUBBER  US  IN  REPORT  PfRIOD 

2353C  ISprtljN^NUrtBER  0T  sEgD  R UN  SJ COUNTS  Up  IQ  I8MAX 

2 36  3 C ISMAJC»rOTAL  NUBBBa  0?  S kb6  SUNOS  DONE 
2373C  IFcTC-LIFE  CYC  III  JX0j,-r0LCR  ANCE  «At«B 
23P3C  SDTTP°SE£D  TYPE;  nlULB-RUlE  Or  X VALUE 
2 3 9 3 C KPI«-3NSIANT  SCREEN  If  JJ  PsRCERT  flOT  SCREEN  IP  3 
2-*C  3C  IPsPglNI  INDICATOR, LONS  RUN.D,  SHORT  R0N-3 

2,  .DC  • iUf  VARIABLES  • ••  V - • • « • • ••  v • . • - - - - - 

2 4 2 3D 

2433  i S I M I R 5 = 200;  M0SUlS  ■ 17  ; iSpRUN  * 1 I Kpi  ■ 0 IIaVG-8 
2443  ISIMPRO  = 0 ; LPCTC  » IS  J JtflL  = 10  ; ISBAX  * 1 
2453  SOTTP  - 7PIXED”;  MbUlE  = U ) IRPTRRD  * 0 I IP  ■ 0 

2i6J£  SET  !L'?.^__0_ir_N3_lfAR!ljyLP  IS  j)RS_IBep*  OS  1 IP  NARBUP 

2 47  3 *C4  = 1 

2483C  SET  «5  j 0 ir  STaNjABD  SEED  IS  DESIRED*  OR  1 IE  RANDOM 

2u?3  KS  » 1 
2503C 

2513  READ  32,MR(JLE,KPt,  U? V < I) . I» 1 . 8 } , tSMA X , IP . KS , K W , LPCXC . ISIBTR8 .MOIOTR 
2121  i 2 P3I«AT(I1,lx*I1.8Ml[*l3).1X,I1*1X.I1,1g>I1,1X.I1*iy.l2.»X.II«lX;i2^  . 

2530C 

2 54  3 PRINT  3 4 , MR  UL  E , (CP  I . ( *P  V ( 1 1 , I- 1 . S 5 , *S!1  RX  . IP  *KS  , KN  , L TQX  Q.  IS  I»1fRS  fcMQNUTR 
2553  3«  format r"o", "Values  input  «, n , ix.n , d( ix, 13 ) , ix . n , ix.xa, ix. 

2560311. 1X*H,  IX, 12, IX, 13.  IX* 12) 

2573c 

ORB 0 WARMUP  « "NO"  S SEED  a 19.0  l EPSCgW  »,  ,CQNSIAMI" 

2 590  KOVItfS  » "CONSTANT" 

2503  IP(XgI.E3.1)  KPSCrN  » *n  or  Mot" 

2510  IP(KPI,EQ,1)  KONPER  * "PERCENT  " 

2620  I r { K V? . s 2 ; 1 ) W A R " U p 7 "YfiS" 

2633  rr(<S,SQ.1)  SEED  c PT  IB  B 

2643  IE(  <S.53';iJ  SpTXP  . "RA»J) 9 « *L 

2653  ISIBPRD  » I S IBl R S *MQN UT A * 1 2 
256  3 I R p I J?  rt  0 » ISIBPRO/KK 
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2 6 7 0 C 

2582  ir(X$M|X.f  EQ.O)  3?^  T? 

2690C 

9JJ  _LP_JLX5_  _ 

2710  KMT  * 

2720  PO  8?Q 

2730  IF(KEV(rt',3T.l00)  KNr»KNT*1 
2743  I F { KPV(.M)  tLT,0)  KNT  * K»T«-1 
2750  8 i 0 CONTIKUE 

2760  IPf  KWT^gg.Qi  30  IP  «S5 

2770C 

2760  320  P1J37  * 0 
2790  DO  8^0  S - 1,«B 


« 

2100  no  930  3 - 3Ftllal|lU»JLtll  

2910  P«OT  « rLO»T(KPV(B) )/l03.0*rt3HTfHO*(»M 

_2J2_1  jPljOT  t J l * IFIX(PHQT) _ 

2830  330  zWTltvi 

284  0 «3CP«?  <.«)  ■ IFlX(pKOl) 

23So  3u0  cgmm 

2660  00  TO  2 

2B70C 

2860  350  DO  860  H»1,8 

29  9 0 K S C 8 3 (.M)  ■ KPV  («) 

2300  360  CONTISUE 
2310  GO  TO  2 
2920  370  P|IKI  872 

2930  372  FORSATCO",  "IS«AX  5R«eR 

2940  GO  TQ  }999 

2950  360  P?IKT  885, KNT 

23*0  9 6 5 FOP'IAK  »0M  , 14, 2X,  "f  ERCBUt  fUUBS  EXCEED  100  OR  NEGATIVE") 

2970  GO  rg  3999 

2980C 

2965C  INITIALIZE  ACCUBOlA JOBS 

2993C  


3 0 0 3 90  3 IA3S33Or  = 0;  N X T R A N * 0 J B A U 3 a T = 3 jr  M A U D X * 0 J II A T II  r * 3 1 M A S C R T “ 0 
33  13  IXCSX»:;IXPIP«0{  IKP4Rl*8>SKSXP««MlX»CSr*3/'IXHPr«0|tXcHST*0 
3 32  3 ixc  -isr3«3;  LxcMSx4«OiLxR:sr»o>  rxar»T",o;vABrN^o;  «xm am-o ; nxbbpq*0 
33  33  FNRrSPd-0;li:RKrHT,0|EAyH*OJ  BAN?T5  = O;I3BPRAX«0;«XTOT  = 0|NXBaSE*0 

33«:  D3  953  -.=  1,flN 

325  2 MAUSElDa  0J2LA  UD(tt)T0iMAT3(M)«3  Lm  ASC  Rf  H)  *Ql  UCSrKM)»0 

3 36  3 1XGPCS(.«:-0;MXPIP(!1)»OHXC3?4('B5  ■0;LXCST3(!1)  *0JIXCST(K)»0 

3 37  3 f«JrTS(  »)=O>FKFHni»3)tx:sI2n)-OfHX»RCSTf«)-0 
3083  953  ^QS  TXNUE 
3290C 
3 1 0 3 C 

11 13  ' 33  9 ? 5 K-1.KK 

3123  N3U1  fK)»:;SGU2(K)»OlN3X3<KJ»Ol 8St2(K)*0 

3133  975  CONTIKUE 

3132C 

3135  53  XQ  5 

3143C 

3153C  SUBSECTION  7 1 Q 0 

3 1 6 3 C ' 

3 C INirXALXEE  TABLES  AND  AqCUH(|LA  TORS 
3 i » JC  VARIABLES  RELAXED  TO  repost  periods*  k 

3193C  _ 

3203  1130  PO  1115  K » 1.KK 

3213  N3U3SHK)  ■ Q»l»SUg»a(K)wO;»TK2tl{)»qH»flrH1(K3-0 

3223  N3T0TR  V K i =0 
3233  1 H5  CONTINUE 
3243C 

3 2 5 3 C VARIABLES  RELATED  TO  BOTH  «ODULBS,d*  Al»D  RBPOBT  PE*IODI,K 

326  3C 

3273  1120  P3  1150  U ■ 1.M* 

3 28  0 1 1 3 6 Cf3  114Q"  K ® 1.KK 

3^9  3 MOD'JSfil  (P1.K)  ■0;mD0TM2(M,K)«0>  730TM1  (M«K»iQ;H00r3T»(N,K)"0 
3 33  3 mOdSCR(  :i,K)»0  ) MOO  US|2{«.  Kino 
3313  1140  CONTINUE 
3323  H50  CONTINUE 

3 33  PC ' 

3343c  variables  related  to"  mooules  alone,  n 

3353C 


3363  1160  00  1*73  M ■ 1 . M M 


i 


3373 
3 3«  D 


MRT3£.’15«3lKU»Brs(3Js0|fU!SSIl3U-5*0tM3CHJIBtS(a)»i 

•1?C85tPrS£n)»0>’1X'JSl»t3iH}»OlMXuSWRIS(M)*0lNXSCHI»ar(«)«0 


3 4 0 0 M3cBf»)»0;MNRTS4Tll(U>»0|tC«eSr1(H]-0;  LC«CSr2(«)»0 
31*13  i:nC8r3(fl)*O|LCsm(e|»«O|tCHi«iiis(fjy»0flC1CSItS.)«0 
3423  1170  COPTIMOE 


J433C 

3443C  VXRX|^Sl.ES  RELATED  T 3 PARTS.  3 


_ m sac 

346  3 H80  00  1180  J p 1,JJ 

3*73  jysErJ)*0;jT'1(J)»3US:R(J)«0;jroI.BfJ)=3jJaD5P(J)*:0 

3403  1190  C 0 S T X H 0 E 

3493c 

3 50  3 C IMirXALIXE  T I * E R gfl  AlRl NS  THIS  REPORT  PERIOD 

I513lC__ 

3523  ICIOCK  - : 

3533  K 3 « IHPTPRD 


3540C 

3 55  0C  UNS'JBSCRXPTEO  ACCUMyLATpBS 
3 56  3C 

3573  NEKjS.OT  .«  O;  HCOSSXSbQi  NJSLEJPlfliLSQ 

3583C 

3593C  VARI5SLE5  RELATED  T3  30TH  3 AXD  K 
3503C 

3513  DO  1195  K ■ 1.KK 
3523  D 3 1196  J - 1, J3 



3643  1196  COUTINOE 
3553  1195  CONTINUE 
3663C 

3573C  RETagN 
3683C 

3 6 90 flA-lQ  .199. 
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Subsection  2100,  Initialize  Failure  Times  and  Scheduled 


1 


Removal  Times.  This  section  of  the  program  loads  initial 
random  flying  hours  till  unscheduled  removal  (failure)  for 
each  part  into  JTTF(J)  and  reads  each  parts  MOT,  and  con- 
verts it  to  equivalent  flying  hours  by  dividing  it  by  the 
conversion  factor  R(J),  given  in  input.  This  subsection  is 
found  in  lines  3700  through  4010. 


3700C 

3713C  SUBSECTIqN  2100 
372DC 

3 7 3.3C  INITIALISE  TIME  UL  F ULU BE,"  JIlE  { J ) , A8D  TIME  III  1SZE 
37U0C  LIMIT.  JITL(J),  FOR  S*CH  PArT  J 

3760C  LOAD  H 4 NOOK  PDfiNg"  HOUR  S~T  I if  U « S SB  ED  UL ED~"r E rtOVA  £""( FAILURE! 
3773C  TOR  SACK  PARI  I»la  JTlFlO},  A«0  RSaS  EkCK  PARI ' S 
3 78  DC  MAXIMUS  QPERATIN3  TIME,  M0I(J).  AND  CONVERT  TO  EQUIVALENT 
379QC  FLYTN3  HQURS  Bt  DtVJDINJ  gl  CONVERSION  FACTOR  , R(J  )_*_3IVE8 
3803C  IN  INPUT',"  SUBSECTION  ;T  4000  DOES  THIS.  AND  IS  USED 

18.1Q.C_  SJLB_JOLa«iAJL  JStlByji-A-JA&l  ISJ5BB1AJM 

3920C 

3830  21  00  S>3  27,00  3 ■ 1.JJ 
3850  SOLE  * F10AI( JSCL(J) ) 

386  0 Trr-A1QCCJ)4.(SCLE*AL0C(  JH  •CALQSfuHXPMlfSEEO)  ) )**(  1 ,/SHP<J)  ) 
3370  JTTF(J)  * IFIX(ITP) 

3MQ_ . J ml  0 ) - ? F I X ( FLQA  ]L(  4.01  i J 111  R.U.U 

3990  2200  CONTINUE 
3 9 0 0 C 

3960C  RETURN 

3j70C  _ _ 

39«0  2300  GOTO  240 

4010C  _ 


' 
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9.  Subsection  4020,  Load  Next  Removal  Times.  This  part  of 
the  program  covers  lines  4020  through  4390  and  loads  the 
removal  times  (both  failure  and  scheduled)  for  each  part 
that  gets  removed  for  maintenance  or  opportunistically 
during  the  program  run. 

4020C  13*0  NSXT  PEMOVaL  TJM8S  FOR  PART  J 

4 33DC  _ _ 

4Q43C  THIS  SUBSECTION  ASSjMgS  X WeIBULL  DISTRIBUTION  3 T 


4353C  FAILURE,  EACH  EXECUTION  Of  THIS  SUBSECTION  LOADS  X TTME- 
4 3 6 3 C TIL-FAILURE,  JTTF  (■  J ) , X N D A T I S E«  TIL- L IT  E-LIMI  T . JITL(J), 

4070C  FOR  |ACH  PART  J.  Ml  TIMES  ARE  CONCERTED  TO  EQUIVALENT 
4380C  ENGINE  n,XZK0  HOURS.  TtL  TtMES  ASSUME  T H X T X ZERO  AST 
4 3 9 OC  PART  *'AS  INSTALLED,  JT  TF  C J 1 IS  THE  FLYIS3  HOUR  TIME-TIL- 
41 00C  MEXTjFJILURE  FOR  PART  J.  JtTl(J)  IS  THE  FLIIN3  HOUR  time* 

U 1 1 DC  TIL-LIFE  LIMIT  FOR  PART  J. 

4 1 2 3C  R(J)  is  SATIO  OF  EITHER  TOTxL  ENGINE  OPERATING  HOURS  TO 
4_lJ  1C  ENGTXE  FLTIN3  H OUjtS  OR  OR  CYCLES  PE»  FLtlNS  HOUR  AS  APPRO* 

4 1 4 3 C PRIATfc  F'OR  EACH  Pa»T  J, 

4153C  MOT ( v ) IS  INPUT  LITE  LIMIT  (MAXIMUM  OPERATING  TIME)  FOR 
4 1 6 3 C PART  J IN  EITHER  TOTAL  DPERxTlNS  HO'JRS  OR  CYCLES  AS  APP. 

4173C  SHP(J)  IS  WFIPULL  SHARE  PARAMETER  (.SE.1.33)  . 

UlSOC  IF  1.'0»  FAILURE  DISTRIBUTION  IS  EXPONENTIAL  (CONSTANT 
4193C  XOTU&RTAL  REMOVAL  RxTg).  Aj  SHF(J)  INCREASES  IN  RANGE  > 

4200C  r.0»  < INFINITY,  the  FAILURE  DISTRIBUTION  REFLECTS  ACTUARIAL 
4213C  REMOVAL  RATES  THAT  INCREASE  WITH  ENGINE  A$E,  THE  LARGER 
4223C  ACTUftRTAL  RATES  XT  H*3HBR  AgES, 

4J33C  JScLfJ)  IS  The  VEIBULl  SCALE  PARAMETER.  THIS  IS  SIMILAR 
4243C  TO  AN  ACTUARIAL  LIRE  EXPECTANCY  TOR  PART  J. 

U25_3C_  AlOC  f 3)  IS  THE  WEIBUtL  ±0  CkTjJ  N PAR  AM  §TER  , IN  HOfl  T C\St  S 

U2*3C  THIS  PARAMETER  W'UL  ®E  3.  ALL  PARAMETERS  ARE  DEFINED  IN 
4273C  THE  INPUT  DATA  IN  SUBsEoHDn  9339.’ 

4 2 R 3C 

4293C  SCLE  ■ FLOAT(jSCLfJ)  ) 

4 30  DC  TTF  »ALOC(  J)4.(SCLE-ALO:(  J)  ] *(  -AL0G(UNIFM1  ( SEED)  ) )**M  ,/SHP(  J)  ) 

»3iac  11  run  * ifixim)  , 

4323C  JTTL( J) »IFIX( FLOAT (MOr( J) ) /R( J)  ) 

4333C 

4343C  PEJUiN 
4353C 

43P3C  SUBSECTION  4100 

4393c  ...  _ _ 
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program 


10.  Subsection  4400,  Warmup.  This  section  of  the 
randomizes  the  starting  ages  of  each  part.  (Lines  4400 
through  4570). 


4400C  WARl(JP 
44  1 DC 

44200  THIS  KANDOMlZgS  THE  SrKRTXNO  A3E  Of  EACH  PAST  B* 

4 4 3 JC  S0BTRACTIH3  OFF  A RaNDOi  SH4RE  DP  THE  THE  TIL 
4 4 4 0 C FAILURE  fOR  TIHF  TO  LlfS  LIMIT  . If  SMALLER). 

445  QC  

4u*o  4ioo  50  a t2o  j * i.jj 

4470  BSD  - JNIFKKSEED5 

4480  I'S  - IFIX(RHD*FL0Ar( jTrP( 3])) 

4490  TF( JTT?( J) .ST.JrrU 3) ) IMS  . If lXCRHD*FL0Ar( jrrLC J) ) ) 
4500  JTTUJ)  - JTTL(J)  - IWS 

4510  JTTF( J)  - JTTF(J)  * IHS 

4520  4120  COHTXWE 
4530C 

4540C  B ETU  8 N 
455  OC 

4560  20  TO  1 

4570C  


11.  Subsection  4200,  Minimum  Failure  and  Scheduled  Time. 

This  subsection  of  the  program  finds  the  part  having  the 

minimum  time  till  failure  and  which  has  the  minimum  time  till 

.MOT.  (See  lines  4200  - 4740). 

458  OC  SUBStCriQN  4200 
4590  C 

4500C  FIND  *1IN  JTTF(J)  qlu  ittuj] 

4 5 1 0 C 

4620  4200  HIKF  ■ 10000000 
4530  DO  421.  J ■ j,3j  

4840  IF(JTT?(  JT.tr. Hl*n  HlNP  • imf TT 

4550  4210  COHTXHUe 

4660  MINI  * 10000000 

4670  DO  **222  J ■ 1.JJ 

46flo  if(  jrrt'  j)  .Lx.niMO  mihl  ■ Jrrifj) 

-459.2  4220.  CflUillll 

470  0C  ‘ 

47 1 OC  RETUgH 
4 72  OC 

4730  30  TQ  IQ 

* 74  0C 
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12.  Subsection  4300,  Count  Multiple  Part  Removals.  This 
part  of  the  program,  lines  4750  through  4880,  determines  if 
more  than  one  part  is  to  be  removed  for  failure  (due  to 
equal  times  till  failure)  or  more  than  one  has  the  same  time 
remaining  till  MOT  removal. 


to7Sac  stigs«grio»  >ioo  

4760C 

4773C  C3UNX  BWWXPLE  PAST  REBOVUa 
478  DC 

.4790  4330  SUITE  R OJ  BUllL  # 3 
4800  DO  434p  J - 1,JJ 

4810  If  ( niHg;»Q.JITr(Jll.  HBLlg-  ♦ J 

4820  I r ( M5M,  so,  JTTL(  J)  ) iWlTl  - MOlU  + 1 
4833  4340  C5»T;N0E 
4 8 4 DC 

4853C  1MU|» 

4 96  DC 

, 4373.  2Q  1.3  ..12. .... 

4 8 8 0 C 


13.  Subsection  4400,  Update  All  Parts  to  Remaining  Time  in 

Report  Period.  This  section  of  the  program,  lines  4890  - 

5050,  simply  subtracts  the  amount  of  time  from  all  parts 

that  were  not  removed  in  order  to  update  them  to  the  time 

that  the  removals  of  the  offending  parts  took  place. 

4 89 DC  aUflSJCHQN  41*00 
4900C 

4J12C  UPDATE  Ut  PARTS  E0R  RKSA;HiM3  TIBS  15  T(JJS  1C  P5RXQ0 
492DC 

4 43 D 4U3Q  83  441Q  J ■ 1.JJ 

4 9 4 D JITr  f D ) * JTTP;  J)  - K3 
4953  JIT WJJ  * JTTL U\  - K J 
4960  4410  CONTINUE 

4970C 

498  DC  RELOAD  FULL  TIME  to  END  OF  REPORT  PfRJoD  FOR  ME  XT  Z PERIOD 

4113C 

5000  K3  - ISPTPRD 

5 313C 

5023C  R ET 7 8 M 
5030C_ 

5040  30  TD  35 

5050C  
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a.  This  is  a large  section  of  the  program,  lines 


5060  through  6910,  which  contains  logic  necessary  for  each 
report  period  of  the  program  run.  It  begins  by  initializing 
the  removal  code  arrays  for  the  parts  and  the  modules. 

Then  each  part  is  aged  by  the  minimum  time  to  removal  and 
the  time  remaining  in  this  report  period  is  decremented  by 
that  amount.  This  part  of  the  program  contains  the  coding 
logic  for  each  reason  for  removal  of  the  part  in  question. 
These  codes  are  found  in  lines  5370  through  5530. 


b.  Next  the  program  assigns  a removal  code  to  all 
removed  parts.  Immediately  following  this  logic  the  removal 
reasons  for  module  removals  are  determined  according  to  what 
parts  were  removed  from  these  modules.  When  this  step  is 
accomplished,  the  reason  for  removal  of  the  engine  can  be 
determined  as  well  as  whether  or  not  the  Rule  of  X Policy 
applies . 


5060C  SUBJECTION  4600 
5.70C 

538  jC  IF  REMOVAL  THIS  PERIOD 

5090J 

S 1 0 DC  imrifclXfd  REMOVAL  COQE  ARRa*S.  DPaBT(I)  and  mod(m). 

_ 5 1 1 DC  A ND_ MI C 

5 1 2 DC 

5 1 3 D 4 6 30  C3  U$1 0 J ■ 1.<JJ 
5143  JPARKJ)  ■ 0 
51.53  4610  CDPTTNUE 
5163  tffRC  * ' 

' IJD.  ,_B3  .“IIULJLJLl'I.H 

1 8 D 10D(M)  • 0 
5 190  4620  CDATINUE 
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52C0C 

52  1 DC  A3E  fACH  PART  8y  MlN  JI^E  To  8 B •»  0 V A X.  AND  UPDATE  TJME 
522DC  REMAINING  THIS  REPORT  P5RI3o.K3 

523  JC 

5 2 U D DO  464  0 J ■ 1 , J J 

525U  jr(nXHLtXTtWTnr)  so  TO  “530 

5260  jm;j)  s JTTP  ( J ) •»  MlNF 


5270  jTTLf J > * JXTL(J)  * WJHP 
5280  SO  TO  4640 

5285C  SUBllACT  MINIMUM  TIME  IJSEjDjIl  L ElOM  ALL  fAILURE 

5 2 8 6 C TIMES  IN5  MOT’S  FOR  ALL  PARTS 

5290  46  30  JITFfJ)  - J T T P ( J > * MH»l 

5300  jTTLfJ)  * JTTL(J)  - Ml»L 

5310  4{40  CONTINUE 


5320 

5330 

JF(  MINL.LT.MINF)  ICLOcK»ICLOC(C*MI8l 

TF( MJNL.GE.MINF}  1C  LOCK  tic LOCK*HI8f 

5340 

5350 

r P ( MINI, LT. MIND  K3-K3.MINL 

I?(  .MINI,  (?E,  MINT)  KJ»K3»MINp 

536  OC 
5370C 

TOR  EACH  PART,  IDENIlFT  AND  CODE  REASON  FOR 

REMOVAL 

5 3 8 0 C 
539  OC 

CODE  3 * NO  defect 

CODE  1 * USA3E  REMOVAL 

5 40  OC 
5410C 

CODE  2 a TOLERANCE  «EM9VaL  (PART  IS  ABOUT  To  FAIL  AND  IS 

detected  nt  maintenance  personnel) 

5420C 

5U30C 

CODE  3 = SCREENED  to  DEPOT  SgCftOSE  "CLOSE 
LIMIT 

ENOU3H"  TO  LITE 

5440C 

CODE  4 9 LIFE  LIMIT  REACHED.  MOT  (MAX  OP,’ 

TIME)  REMOVAL 

545QC  QQDg  3 O U-DEP,  pSAOB  REMOVAL.  BUT  “CLOSE  SNOU3H"  TO  MOT 
5 4 6 0 C TO  SEND  TO  &E80I  fOR  REPa** 

5u70C  C0">S  5 A MULTIPLE  PArTJL,  AlL  ’J  S A 3 J 

5 4S0C  CODE  7 = MULTIPLE  PARTS,  4 I T H AT  LEAST  ONE  SCHEDULED 

54900  COD?  S s RULE  OF  X To  5EPOT 

5 5 0 0 C CODE  9 5 MULTIPLE  MOoULE  ReMOVaLS.  ALL  USA3E.  NOT  RULE  OF  X 

53.1  IQ CO  P I jQa  M ULTlPLE  MQQULE  Rf  MqVaLS,  At  LEAST  0 NS  SCHEflU  LF  D, 

5 5 2 0 C NOT  RULE  0?  X 

5530C 

65U0C  JF(M)  IS  NUMBER  OP  1SJ  PARI  IN  Ml H MODULE.  jr{1)  ARRAT 
555  OC  MUSI  CONTAIN  ONs  MORE  ESTRT  T«AN  NUMBER  0 F MODULES,  THE 

556oc  (tuijsr  ENTRy  sko-jld  equal  o»e  plus  mth  entrt  input  in  subs  9000. 

5571C  


*583  DO  4753  « ■ 1.MM 

5593  DO  420:  J » 3rCn.(  jr(Hf1J*D 

5600  isc«N  5 FicnrtMscaNfM)  )/r(  j\ 

5610  I r ( JXTL( J) ,F3,0)  JBABX(J)  . 4 
5620  if ( jrrw j) .S3.0)  so  ro  4700 

1630  IF(JXp(J}.E3t0^iD,JlTl,Ul.;3T.I»CBH)  m*T(3)  1 

5643  IP( JT5F{ J) .E3.0. ASD.JtTLf J> : Le.lSCRH)  J P A R X ( j ) ■ 5 
5650  ir{3TTF(  J),GTtOf  AND,<J  JfTF  ( J >.  LE , JtOl » JPART(J)  «2 
5660  I F ( jrr?(0)  .GT.O.MD.JTTU  J)  .LE.ISCrN)  JPART(J)  mi 
5673  4700  CONTINUE 
5683  4750  CONTINUE 

5690C 

5 70 o c for  each  Module,  identify  a»o  code  reason  "rot  removal 

5713C 

5720  30  4500  rt  » 1.MM 
5730C 

5740C  INITIALIZE  MULTIPLE  PARTS  CoUNtE*.-  MPC,  AND  COMPUTE  ITS  VALUE 

575  0C 

576 0 ~MPC  = 0 

5773  00  4310  J =»  JF(M), 

5783  IF(  JPART  f J)  .31,0)  SI  P C m MPfi  4-  1 

5793  4810  CONTINUE 

5800C 

581JC  rOR  EACH  MODULE,  SIFT  PARTS  REASONS  FOR  REMOVAL 
5 8 2 3 C AND  CODE  SEASON  FOR  MODULE  REMOVAL  INTO  MOD  ( M ) 

5833C 

5843  DO  4*53  J « 0F(M).(  JE(Mfl).-i) 


5850  IF(  JPAr.TfJ)  .SQ.O)  30  TO  4853 
5360  IF(Mrc.3r,1)  30  TO  4825 

..  5R7.0  _ttOD  IFAAZUJ 

5883  GO  TQ  4850 

5390  4«25  JF(.0PART(  J)  . L E . 2 . A N D . 8 Do  ( M ) . LX . ? ) J10D  ( fl  J « 6 
5900  IF( OPARTfJ) .ST.2.AND. JPARTlJ) .LT.Sy  MOD  f M ) « 7 

53  1 3 4850  CONTINUE  _ 

5920  4830  CONTINUE 

5 94  3 C DETERMINE  EN3INE  a E M 0 V A L COoB  AND  RULE  OF  X FOR  DETERMINING 
5J53C  DEPOT  REPAIR  AND  STORE  I«  Ne«C 
5 3 6 0 C FOB  EXAMPLE.  IF  X » 3,  r«BN 

5 37  3C  RULE  0?  3 S A IS  THat  IF  3 OP  1 DR  E MODULES  (EXCLUDING 

5 9 8 3 C ACCfSS?RIES-2  AND  AUGMENTOR  ANO  INcLUDINS  THE  CORE) 

599J.C  R£QUXRJ  JLg-MOVAL,_ajL_IlAl  J3F_J)LI1  llGlMl  REMOVAL  111  IK.  KITS 

63C3C  WHOLE  SNJINE  TO  DEPOT 

6013C 

5323C  INITIALIZE  MULTIPLE  MODULE  COUNTER.  MMC.  and  COMPUTE  ITS  VALUE 

6 J 3 J C 
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6 3 4 3 M«C  - 3 

6.3 52  8 »,Utt 

6363  rr(*ipOCM)  .3T.0)  MHO  * MMO  * 1 
6373  4930  0°«TSNUE 
638  3C 

6393C  DETERMINE  RULE  or  X A 6f  D 

6 1 0 0 C DETEgMINE  REASON  ?0R  BNjINE  REMOVAL  CODE  AND 

. 6 1 100  3.10.?  C 3.0  C E IJg  NjitC  __  . 

6123C 

6133  sr(ni5,5r;i)  so  to  4*io 

6140C 

6153C  SIN3I.E  MODULE  REMOVAL 

6 163C 

6173  DO  4923  M ■ VMM 

6183  IE(100(M).3T,0)  REftC  ■ MOD(M) 

6193  4920  qOBTXNWE 
6203C 

6210  30  TO  4}53 
6223C 

6 2 3 DC  MULTIPLE  MODULE  HfifiaYll 

6243C 

62530  "DO'-USS  1 AND  (MM-1)  ARE  NOT  I«  RULE  0T  X 

6 26  30  MODULE  4,  CORE,  TS  MANDATORr  INCLUSION  IN  ROLE  OF  X 
62730  K R 3 STORES  COUNT  OF  R UL  g OT  X MODULES  HAVJH3  REMOVALS 
c *3  q ^ r 

6 29  3 49 1 Q HR 3 * 0 

62950  65950  COMPUTE  TOTAL  MaEH0U*8  USgO  TOR 

6303  DO  4J25  M ■ 2,MM-1 

6310  T r ( MQD( M) ,3T,0)  MR3  « MR3  * 1 

6323  4925  50NTTNUE 

6333  lF(M83,LT.MRULE.3Rt&l00U).LT,1)  SO  TO  4930 

jBjMilSL ._.. 

63500  WKOLg  SNtJINE  SHlPpEg  TO  DEPOT,  RULE  OF  X 
63630 

6373  NERO  B 9 
6383  SO  Tfl  »9&0 
6 39  DC 

. 640QS  HOT  8ULE..0F  X,_.BiT_  MODULE  REMOVALS 

64130 

6u23  4930  50  4940  M ■ 1,MM 
6430  IF(MQDtM) ,E0.0)  SO  Ta  4943 


6^j  iF((fJOD(H}.I,E.2.3a.f!OQ{11}.lQt6).IMD.mc;iB.10)  tfERC*9 

6*50  IF(  MOD  ( .1 ) . 3T.  2.  AND,  « 0 £j  ( 1J  . LT,  5 ) 8E»C  = 10 

6 '4  6 D IF(  MOD  (.ft)  . EQ  , 7 ) jjERC  * 10 

6470  4940  CONTINUE 

6490C  IF  NSR08.  BYPASS  EN  3 1 3 B S K S B SEPARATION  COST 
6503C  3ECAUSB  WHOLE  8 N 3 1 N E SHIPPSd  TO  DEPOT  WITH  No 
6501C  MODULES  REMOVED  AT  0ASB 
6510  4950  If  {^ERC.L3.85  3°  TO  5093 

6520  18(^0,31,1)  30  TO  5010 

6 5 3 0 C SINGLE  MODULE  REMOVAL 
653  1C 

6532C  C0MpUIS  TOTAL  MANrOURS  SPE«T  REMOVING  LOSS  MODULE 
6 5 3 3 C 

6540  DO  5033  M ■ 1 , MM 

555_2__ir  (MOQ(M)  ,GT.O)  NBSEPT4H  • NbSBPXWH  » MBSEPMH(M) 

6560  5020  CONTINUE 
6570  GO  TO  5030 

6580  5010  I? (MQD(4) ,EQ.O)  SO  TO  5040 

6585C  COMPUTE  TOTAL  MAMaOURS  USED  for 

6 5 9 0 C MULTIPLE  MODULE  REMOVAL  INCLUDING  CORE 

_6a?§£ 

6500  S8SEPTMH  » NaSEPTnH  + MbSEPmH(4) 

6613  I P ( MPD(5)  ,ST,0)  NBSEPTRH  * SaSBPiBH  + 13 

6520  30  TO  5 P 70 

30  5040  IF(M3D(5).E2,  0)  30  TO  5350 
n543C  MULTIPLE  MODULE  REMOVAL  INCLUDING  H»T  BUT  NOT  CORE 

6650  N BSJ5P T3H  «■  NBSEPTMH  ♦ MbSEPmR(5) 

6 6 6 0 IF  (MOD(3),3T.O)  sBgEpTMH  » NBSEPTMH  4-  MB  S 8 P M H ( 3 ) 

6570  IF(400(.7J  ,3T,0)  N^gPlNg  = NBSEBTMh  4-  MB5ePMH(7) 

6680  GO  TQ  5070 

6690  5050  IF(MQD(6)  .E2.0)  GO  TO  5(560 

6700C  MULTIPLE  MODULE  REMOVAL  INCLUDING  TURBINE  BUT  NOT  CORE  NO!  NH 

6710  NBSJPTSH  * NBSEPTMH  ♦ MgSEPMH ( S ) 

6 72  0 I P ( M Q 0 (. 2 ) • G T , 0 ) NaStfPTMK  * NBSBpTMH  ♦ MBSEPMR ( 2 ) 

6730  IF  (MOD{3)  ,GT.O)  sBSEpTRH  • NBSEPTMH  MBSEPMH(JJ 
6740  IF  (MDD(7)  ,GT.O)  BBSEPTMH  » MbS|PTMH  4-  MBSSPlH(7f 
6750  GD  TP  507 0 

6 76  DC  MULTIPLE  MODULE  REMOVALS  BUT  NOT  CO«E  NOR  HPI  NOR  TURBINE 
6770  5050  IF(.MQD(1),3T,3)  MBSePTIR  * NBSEPTMH  *■  MBSEP.MH  ( 1 ) 

6780  I F ( M 0 0 1 2 ) • 3 T • 0 ) NBSBPJMh  = N B S B P T M H ♦ MBS  8 P M R ( 25 

6790  IF{  MODt3)  .3T.0)  N gS  jP  I M R = N8SEPT[1H  4-  MB5ePMR(3) 

6903  TF(  1 3 D C 7 ) ,ST,0)  NbSEPTMR  = NBSEpTMH  4-  «BSBPMR(  7) 

6810C  A CC2  RBP8IR 

6820  5070  IF(MOD(8).3T,3)  NbSsPTMh  = NBSEPTMH  * MBSEPMH ( S ) 

6330C  ADD  MH  TQ  TEST  EN3INE 
6 8 4 0 50  30  'N6?EPTMH  ■ ' N S S* PTflH  ♦ SbTeTSI SI 
6 8 5 oc  C ON  vf  r r MH  to  dollars 

636  0 NBSSPCST  - IPI X { ( PLOA  I ( NBS  Ep  T RH  ] *BflHCSI ) 4-,’5  ) 

6 3 7 0 C BTPASS  SINCE  ENGINE  SHIPPED  RULE  Or  X AND  NO  M00ULE3  WERE  REMOVED  AT 

688  0C  BASE." 

6R9DC  RETURN 

0 5090  50  T3  50 

6 9 1 OC 
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Subsection  5100,  Record  Engine  Removal.  This  sub- 


section, lines  6920  through  7770,  records  engine  removals 

and  module  removals  by  report  period,  and  separates  these 

removals  as  NRTS  or  RTS. 

697jC  SUB3E"7I3(*  5100 
693  JC 

694jC  FFcosn  si:oi;jp  rmjVhl 
69?3C 

696  3C  3 7 E P 0 p 7 POP.  TOO,  K 
6973C 

6960  Sioo  IF(  NEHC.  P0. 1 ) tJ'iUSBl  ( *.)  = N ” U S K 1 < K ) *•  1 


699  j 

I P ( .'EBC.EV.2) 

-9  3 U s M 1 { K | = MGuSpI  ( K ) * 1 

7 0 r.  o 

( 562, 00.  u ) 

m 3 r * i ( k ) = n g r *i  i ( < ) * i 

701Q 

I ? ( 1 ? 8 0 , S ^ t 5 ) 

3 j s $ i ( K j = iusbi(x)  * 1 

7 j 2 3 

:?( NEHr. E7.61 

>'  3 0 s E 1 ( K } = N 3 J 5 6 1 ( K 3 «■  1 

7 03  0 

I F ( : E t<  0 , E 2 . 7 ) 

;<3r«lU)  = N G X ,’l  1 ( 5 1 + 1 

7 04  0 

i f ( ; e 9 : . e o , p i 

•or'i2C6)  * (fg + i 

70^0 

I F ( .«  E H r , 5 7 . 9 ) 

‘ ’ 3 J S rJ  2 ( K ) = 3 a s -0  2 ( K ) * 1 

7 06  0 

IF(  ISPO.EO,  10)  N’3TM2(K)  = 9 " r 1 2 ( K ) *■  1 

7073 

^ t v Z T ^ f = V r*.  % 

0 Tor  + 3 

7 0 K 0 C 

70Q0C 

o n X ? E W 

7 noc 

7 110 

39  X'l  i>- 

7 1 20C 

7 1 3 0 C 

p 0C  0?p  M^CMILP 

6-;iov\i.6  roK  o'lsrwp  .vixs  dAUsis 

7 I U 0 C 

7 150 

310  5 I r i JJ  S 6 C , p 

30  To  5120 

7 6 0 C 

7 1 7 0 C 

VOX  PULP  op  Y 

7 1 8 0 C 

7 ;9o 

00511  7 E 1 

, 1 1 

7 20  0 

Tf(  5o(MJ.E2. 

1 jC  TO  5113 

7_1  0 

T P ( 9 0 ( 'P  . E ? , 

11  GOTO  5115 

7220 

TF{  'OD  ( ill  .P9. 

21  gO  TO  51  15 

723  0 

T P ( . 3 0 ( 7 ) . F V . 

31  *i?08NPr.6(  7^  = >iSCSMPrp(7) 

*■  1 

72“3 

Ip(  .01),  51  . t'9. 

41  i3fH;;Sr3(  7^  = ( 7) 

«■  1 

726  0 

TF(  1 0 1.  ( *: ) ,po. 

61  1U5N.9TS(7)  * 7 U S C fi  T S ( * ) *■ 

1 

7 2h  0 

z P ( i 0 0 M 3 . E 2 . 

73  .iSCH(,RrS(11  = vI*5CH^p  rs  ( " 1 

4-  1 

72^0 

I?{  'OH ft;  ,,y\ 

6 ) G 3 LJ  6 1 1 5 

7 2?  9 

IT  1 -1  ' 1 0 

82 


F — - i 

I,  * 

► 


3 0 3 C SEPARATE  INTO  RTS  08  NR  IS  Rg*lOVU 
7j20  5 1 1 5 8 5 0 ' s (INIFf 1 1 ( s * E D ) *1  0 0,9 

7330  If  (RHP^G^.BNRTSPCtMn  1*18(1)  * HBTSMl)  ♦ 1 
7 31*  0 I r ( SB0.1B,BNRTSP0(H)  ) *UN*TS(1)  * «U*Rt5(H)  ♦ 1 

7350  5110  qOSIXNUE 
7360C 

737QC  R S T 1 J B N 

7 3 8 0C 

7390  30 TO  70 
7400C 

7413c  ms  op  x 
7420c 

. 7430  51  20  NEB3N8TS  a NBNSNHIS  .♦  _J 

7440  DO  5130  K « 1,HM 

7453  iP(IOD^n)  ,EQ.O)  !jX0K«»rSCl)  *=  KXOKURtSdi  * 1 

7460  tr(«OD(3)  .E3.1)  IxUNRrS(M)  . dXON8TS(Bf  1-  1 
7470  ir(M9D(.M],EQ,2)  lXUN«T$(«)  * 1XUNBTS(HJ  * 1 

748  0 IF(IQOM)  ,EQ,3)  lXSCRN8T(1)  » «XSC*»*T(D  * 1 

1 490  If (1QP(B).E2.4) m.cjumuu_g,  ttX3£«Illi)LLj*_JL_ 

7500  xr(  ifloeH) .ea.5)  nxusn*rs(i)  * ixusRRrs(B)  * i 
7510  ir{l00CM),EQ.6)  aXyNRTfld)  « liouiaill  t L_ 

7520  IF  ( 100  (,M  ) * EQ , 7 ) 1XBCK»*TC«^  « BXScmT(S)  * 1 

7533  3130  CONTINUE 

75U0C 

_ 7 55  PC  BET'JRN 

~S63C 

ita  so  rg  ?o  

7 58  OC 


7390c  recoro  1 g d u l c level  RSBguii 
7503c 

7613C  BX  RgPQRT  PERIOD,  K 


7520c 

7533 

5135  00  5140  1 ■ 

i.«B 

7540 

7530 

in  igotw)  .EQ.O) 

I F ( 10D(.M)  ,EQ,  1 ) 

3O  To  5140 
lODUSEl(rt*K) 

■ MOdUSEKI.K) 

4- 

1 

7660 

7673 

IF( 10D(M) .EQ.2) 

lO0USEl(M,KJ 
nO0ScR{M.X!  * 

■ MOdWSEKH.K) 
BOOSORM1.K)  ♦ 

4- 

1 

1 

7683 

IF( 1Q0  CM ) . EQ , 4 ) 

lODTflld.X)  *> 

BOOTH  1 ( N. K ) * 

1 

7590 

XF(  7 Q D (.  rt  ) .30.5) 

100TH1(«.X)  * 

BOOTHHB.X)  * 

1 

7703 

If ( IQDtN) .EQ.6) 

lOQUSEjfM.X) 

« IOdUSE 2 ( 1. K ) 

4- 

1 

7713 

If  (.190(1). BQ. 7) 

lODTl2(M.K)  * 

BODTH2(H.K)  * 

1 

7720 

773QC 

5140  continue. 

774 OC  RETURN 
7 7 5 3 C 

7763  30  TO  »2 


7 OC 
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16.  Subsection  5145,  Module  Removal  Summary.  This  section 
of  the  program,  lines  7780  through  7960,  total  all  the 
module  removal  reasons  for  primary  cause. 

7780C  SUBSECTION  5m5 

-7..71AC 

7800C  MODULE  BIHOVM  ( re*  m«ARl  CRUSH ) 

fitae 

7820  5145  50  5350  H ■ 1.0(8 

7§3o  irtaoPCtn.EQ.o)  so  to  3155 

781*0  If(  ,E0. 1)  (itril(H)  ■ MUSBIB)  * 1 

7850  irnqPtHl.BQ.2)  1UIKH1  » HJSEMh  * _1 

7860  xr(M9DlMJtBQ,3)  SSC*(H}  - KSCRfB)  * 1 

787o  IP('ISO^)  iBfl.U)  flTMB)  • MtiUj  $ 1 

7880  IP(l9DC«i.B0.5)  BU9(H)  • Rgulj  * 1 

7890.  . XELNfiDW .«.,«}  *»»*<«>  ■ HSStfe*)  ♦ 1 _ 

7900  XF(«90C«1.*0.7)  BTH(«J  • 11*111}  1 1 

7913  5180  C08IIN0E 

7923C 

793QC  I1TD1K 

7 9 4 0C 

7990  SO  Tfl  ?0  

7960C 


17.  Subsection  5155,  Part  Removals  by  Cause.  This  section, 
in  lines  7970  through  8140,  records  part  level  removals  by 


cause . 


7970C  SUBSSCriQM  5155 

7980C 

79905  RBCO|0  P*HI  LEVEL  RBWOVRIS  IT  CRUS* 

8000C 


1010  5J_55  00  5360  J ■ 1.J* 

8020  XP{  JRR«TPJ)'.BQ,01  »0  To  51«0 


80  31 I T ( JIM  T PJ).EQ  .11 

8 0~4  0 TrTTF'APf  rJ)  .BO.  2) 

8050  XP( JPR8TCJ) .E0.3) 
8060  I r ( JPRFTfJ) ,80.3) 
8070  IP( J? ART  f J ) ,50.4) 
8080  XP( JPRRT f J) .80.51 
8090  5160  CONTINUE 

rryoc 


jUaB(J)  ■ J03BCJ}  » 1 

"JToXT(Tr  i~  JX0tR(J}  * 1 

JSCR(J)  ■ jSC«fJ)  * 1 
t’niCKJtK)  J*SCR{j,K)  * 1 
* jj*tsi  ♦ i 
SUqBP(J)  • 300ip(j}  + 1 


8 1 1 OC  RETAIN 
8120C 

8130  30  TO  95 

8140C 


18.  Subsection  5200,  Failure  and  Scheduled  Removal  Times 


This  section,  lines  8150  through  8310,  calculates  new 
removal  times  through  a random  number  generator,  UNIFM1 (SEED) . 

\ 

5 SjC  S(JB$fCfX0fl  5200  _ 

8 163C 
8173c 

f ,80  5200  BS  5210  3 ■ 1.  JJ 
« 9190  iPi  J2A8HJ)  .E0.0)  30  To  52 n D 

32C0C  REPl&CE 

42  "CC  SJL  * U 5JL.1LQ  -iLOJUS- 

8 ;;  SC  Lt  * FLO  AT  ( J3CL  ( J ) ) 

o 2 3 0 TIF-H2CCJ)*{SCLB^U0c(  J ))  * ( -it03  ( U»IPH  If  8BSB  1) ) 5*  ( 1 . /5HP£J  )) 

320  IIFf  J)«IPIX(TXP) 

5.5  0 m£J)"tFXX(FL3M(H0l(  Jjl/R(  J)  1 

6260  3, 10  CONTINUE 

^ T 3 ^ _________ _____ 

3 2 8 0 C iETUgN 

■t 29  3 Z ~ — 

3:oo  go  rg  ?7 

8 3 1 OC 


19.  Subsection  7000,  Totals.  This  section  of  the  program, 
in  lines  8320  through  9940,  calculates  all  the  output  for 
the  program.  The  oarts  level  totals,  module  removal  totals, 
line  totals  by  report  period,  total  NRTS  and  RTS  for  modules 

and  engine  are  all  calculated  here. 

6j20C  saBSpcriQN  7oT(f 

8 ills 

5 3 0C  CALCULATE  PARTS  LEVEL  TgTAlg 

9350C  

6360  5300  J^S?r»0;  JTOLaTwOj  JjDEPt»0)(jri1T30^  J8CRT-0;  jroXlT"0 

5 371  gg  531*  « ■ laJU 

6 38  0 MJUSET(.H)«0J  N JTOLBt  ( H ) *3  ? !1  J(jDEH  ( W V*0 

3 39  0 K 1 Ali  O J HI  & C lif  fl  i>  11. 1 J I f t H) »0 

6400  5310  CONTINUE 

3 » I OC 

6420  00  5320  J«  1,JJ 

8430  JToHU)  ■ JUS E ( J ) f JTOLR(J)  * JUD$P(J>  * Jtd(J)  ♦ J|C«(*) 
9440  5320  C0BTINUE 

3u5  0C 
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8*60  DO  5330  H ■ 1,HM 
8*73  DO  53*3  J ■ 

8*80  rjusixp)  ■ njusBrUJ  ♦ jube(j) 

8493  KJTO;Rr(M)  - MJT0l*XU)  ♦ 

8500  M3uO|PT(M)  - H000ePI(«)  + JuDSP(J) 

■ 8510  JUT MX(3)  . • JUIflli  lL_+ AZM11 

8523  MJSCgXp)  ■ HJSCRI(«»  * JSDr(J) 

8530  MJXOXRr(fl)  ■ MJTOr*I(«)  ♦ JT3r*£.J) 

85*3  5340  COBTINUE 

8550  5330 

8563C 

8.570  _ D.0  WA2  fl_  .^lxillL 

8580  JUS8X  * JUSET  ♦ HjtflBSOi) 

8590  JXOD8T  - JrOLRX  * n JT3X.RT  ( 3T 
8500  JUDEPD  ■ JUDEPT  ♦ M JU^E  PT ( 1 ^ 

8$10  JTMI  ■ JXMT  + NjrnT(H) 

8620  JSCRX  p JSCRX  ♦ MjSC*r<  M) 

_J_TOT|X  JLJXOXRX  » HjTQT»T(«1 

8640  5350  C0PHNIJE 
8650C 

9660C  CUCyUXE  MODULE  SlBOVM,  XOfMS 
8670C 

8680  MUSEX«2JHUDT»OJ MtWt»0 

._ma_  jisx:  rjc-o  juia  Tgx«oi!jHr»m»om!irTni*o 

8700  MRXSr»3;1USRISl»0/«USMRrSI"0f «SCHSrTT»0 
8710  MScRPRTIsO;  MINRX5t»5l!lXtfl>Rr3l«0iHXy3|!RTr*O 
8720  lXS08MTT»0|MXSCRtlT«0|BXOKIlRrT»elNHIW*Htl«0 

6 7 3 0 C 

8743  5360  50  5370  1 « 1.MB 

8lI5_0  . ttroJ.B(B).*Q 

8760  MTOTgP)  ■ MUSEf  H^«U0(  iU«X!1(H^*l1SC*tHJ 

8770  5370  fiOPIXNUE 

8780C 


8790  DO  5 36  2 K - 1.HH 
8800  MUSS!  * MUSET  * 3 0 S 9 ( M ) 

8810  HRU58(3)*M8USB(M)»mi3a(rt) ___ 

8 320  mod:  - MUDI  4-  MUO(fi) 

3330  M&UDP)«MMJD(M)*-HJD(H) 

8843  M XM  T ■ MPT  * MTMttlf 
8850  MAX'1(«)«MAIM(M)*5tM{H) 

8863  MSCRT  * MSCRT  «•  M3CR(N) 

8_8  7 0 MA  SCg(8)  »MA  S C RJ[M  J *■  M S CRpl 

8383  71X07?X  • 1XOXRX  * t1TOX*(M} 

8693  rRISX  ? HRXSX  *■  MRTS(M5 
8900  MUNRXST  s MUNRlST  ♦ MuJJ  RTS  ( M J 

8910  M'JSNgTST  ■ HUSBRTST  » MUS(J_RtS(M1  
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► 8923  P.SCKNRT'T  « MSCHNRjT  ♦ KSCHNrXS ( fl) 

8?32  ijSQRNBrT_»  MSCRNRJTT  * _HSCB  » RT_Sj  Sj 

8943  PXU^ifrsr  ■ flXUNRXsT  ♦ KKUN’ltsH) 

8953  WXUSSflrx  *»  MXUSH8IT  ♦ !1<U  S » 8 V S ( PI ) 

896  3 AXSCHNTT  ■ MXSCH(»rT  ♦ tl  XS  C H N R r ( S ) 

8973  *!XSC8«rr  « MXSCRWrX  * MXSCRw8r(Hj 

8983  pxoKNsrx  - mxoknrxi  * MxoKNars(n> 

0393  flNRTS^rH^)  , HXU8!IX3(H>*HXu8N»t8tW^MX3:HWRr(  H)tHX8CIHmH)  _ 
9303  PNR-fXHTL  - KWRWXHXl  * f1tlRX8wIH(n) 

93  1 3 5380  COHHNUP 
93230 

9333C  CALCULATE  (M,K)  LINE  TOTALS 
* 9343C 

9353  5430  50  54UQ  * ■ 1 »M,*8T 

9363  D 3 5553  fl  ■ 1 , M fl 

9073  MOdTOXR(M,K)  =»  flOpUgEI  ( H.  K ) ♦ 13  DO  SE2  ( H . K ) »flOD  T M2  ( H . K)  »MODTg  1 ( fl  « K ) ♦ 
9D834100S08( a,K) 

9393  5450  COB HHtf* 

9103  5440  wOBTINOE 

_ana£ 

9 1 2 3 C CALCULATE  (M,K)  fl  ToTfcLS 
9133C 

91  43  5460  50  54^0  M ■ 1 . M d 

9153  «tUS8H«l»0jMXUS82<N)»O|HX!M2( 

9153  PTTOtRCMl»0|irSCRtH}»0 

9 1 7_3  _ 5 3 _5  4^  3_  £_  • 1lKL*_sT 

9183  MXUSEHMJ  ■ HUSSlCD  * MODuSGl  (.H.lO 
9193  « r u s E 2 <_  M ) ■ «TUSE2U»  * M3DuSE2(.K.K» 

9203  KXTM?(3)  - MTTfl2(M)  ♦ »0  0 Tfl2  f 1 . X 1 
9210  ‘irT'll(l)  ■ MTTMKlJ  * (1 001 1 1 ( fl , K ) 

9220  MTXOXRtP)  » flTTOTlUJ  * MOOtOr* 

9 23  3 MTSCS(I)  » HT5CB(B)  ♦ H3P5SB(H.K)  _ 

9243  5480  COTtINOE 
9253  5470  COBIXNUE 

9 2 6 3C  COMPUTE  IOHL  NATS  B*  HODUlE 
9273  5540  00  5*30  fl  > l.flfl 

9280  H m R IS  ( IS  fH")»HuS  *1X8(3}  *«5fH»lltS  ( fl)  *tlSCRmS  (7H 

9290  1TBRTSX  ■ MTNRTST  * STS>tS(Hf 
9 3 0*0“  35=0  C7VTXWS  “ 

9310C 

9320c  compute  final  ren/1  oooPu  d*  bodole  uio»i  ouir-mrH(M)') 

9330C  7fP3X  ONLX*FRXfHp( M ) l TOTAL  FO*  C AU5E*FIKFHC ( fl ) 

9343C 

935  3 5490  50  5*00  fl  ■ l.flfl 

9 36  3 FRKF“S{8)  ■ ( 100  0, 3 *Tt 0 A I ( fl  R 1 3 ( flY^firiTTflTn /FLOAT  ftSXflfRfi) 

937  3 FKI-HJ  1)  -FKFH  ( fl)  *FBKFH(  fl) 

9 38  3 F RKPSO  (.«',■(  1000. 0*FtOkt(«SHTS*tHfrtTV) /FLOAT (ISIltliD) 


9390  mf'HC(.M/aFRKFH(l5*rRlCFmH! 
9400  5500  CONTINUE 
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--8.H1.3C 

9-20C  CUCIJUTJ  PINAl  NgTgX  Br  MODULE 

94  3 DC  9ftSE  LEVEL  >J  P T S X -B  (|R  X 3 PC  ( 9 1 t DEPOT  LBVEl  REMOVAL  X*DEPPC(M) 

9 4 4 D C TOTAL  REMOVALS  fo?  CaL'SE.  XREPAUBD  AT  DEPOWOTPC  ( mi 
9453C 

9460  DO  551;  fl  ■ 1.MM 

9 4 10  jLrxrift AXin ® in “jjfeju mu ail* bo . o 5 ooia  asio 

9480  mrs?:(m  - ( ioo.o*ri,OAT(!iT*Rrs(!iTn/PiOAr(MRrs(>‘)*MTKiiTs(Ml ) 

9490  r!JRTSt«)srNRTS{*!)4fHRl3BCC?11 

9500  DEp?C(M)  ■ 100,00 

9510  TOP  * 3XK8T5(*n  * HaBrSrfTH f H ) 

9520  B 0 T 1 0 “ « TOP  * T LOA X ( IP  IS ( 311 

_15J0 TUI  C IiL_a . 7.1Qa  0 LLQ1/M°  I T 23 

9540  5510  CONTINUE 
9550C 

9560C  COMPOTE  EN3INE  NATS* 

9 57  OC 

9580  5520  SXgTSPC  - 1 0 0 . 0 *P LO A T ( « E * 3 » R T S ) /P 10 A T ( » E N 3 T0T1 

9 ^9  q ff^nr^PwTgSWRTSP^r^BMRysyc 

9600  T r { ISiUX.'Ea.ISDROm  EAKATSPEllRrsPCT/FLOAniSflAX) 

951JC 

9520C  COMPUTE  ENGINE  REM/IOOOFH 
9 5 3 0C 

9640  5530  5RKEB  ■ 1 000 , 3 * Pi 0* T ( N E»3 TOT ) /TlO A T ( ISIM PR D ) 

9650  ERKFBI*gaKfHT»EtlKPH 

956  0 iniSMAX.’Ea.IsDH'Jl!  E A T «■  E I K PH  T/ flQ  A T ( IS  M A X ) 

967  OC 

9680C  COMPUTE  EN3INE  REMOVAL  LINE  T0TAL5  FOR  EACH  K PERIOD 

9J90C  _ _ 

9700  00  5565  K ■ 1,KLA5I 

_ 9710  N3TOI8  (Kj«P8USE1(K>»S  3UBB2(H)  *»  3 ?M2(KW»3TH1  t K 3 

9720  5560  CONTINUE 
97355 

9 74  OC  COMPUTE  EN3INE  REMOVAL  COLUM*  TOTAL*  OVER  ALL  K PERIODS 
9750C 

9760  5570  N3U3?1T«0;N3USE2T«OiN3TM2r«0>N3TMir»0|N3rorRT«0 

-.iliac. 

9780  DO  5§8D  K ■ I.KlASX 
9790  N3U5E 1 T * N3USE1I  ♦ N 3 U 5 B 1 ( K 1 
9300  N3T2;K)»N3T2(K)4.|I3T!12(KJ 

9010  N3UH*  )»N8U1(K)4-N3USE1(K1 
98  2 0 N3U2JPM  «S5U2(K)  *N5USE2(  IO 

.. . 9835  N3I1iK)«gGI1  OSlM  tl  HJU 

9040  N 3 U S 1 2 T s KSUSE2T  * »3USE2(K5 
9850  N3TM2T  ■ N3TM2I  4 N3TM2(Kj 
9865  N3TM7T  ■ N3TM1T  ♦ »3Tm1(K) 

9975  N3T0TBT  # NSTOTsr  ♦ N 3T  3T  R ( k ) 

9885  5590  CONTINUE 

989 0 _ I OBraAX»IQBENA X»N3XQXrT 

9 9 0 0 C " 

9910C  RETU|N 
9920C 

9935  GO  TO  JOS 
9 94  0C 
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the  majority  of  the  output  tables  for  the  program  and  is 
found  in  lines  9950  through  13580. 


9 9 5 0 C SUBSECTION  5220  

9960C 

9 97 jC  OUTPUT  RQUTINES  --  »Ei|0¥AI,S  IjSlSS 
998  OC 


9990C  CROSS  RJEERENCE  r A c| L e (PH3e  1 OP  L0l» 3 38  SHORT  PpPfi) 

13030C 

1 30  10  5600  IPS  * IP5»1 

10020  ~ 'PRINT  5 $ 1 0 
1 0030  55  i0  FORMAT!  "1  ////> 

10040  PRINT  5^20. ISDRUS, 1*3 

1 0050  5520  F3RMAT( 1H0.-S1SD  S3N  *;i2,4X»«>>  ", ’CROSS  REFERENCE  V ABIE" . 
1 0060  S”  <<7,5X.*PA3E  ",tU) 

1 00  70  PRINT  5630,  BN3INC 

1 0 0 0 0 5 6 3 0 P 3 R PI  A T ( 1H  0 . T 2 0 . A 1 5 ) 

10090  PRINT  5»4Q,XDATB. HIKE, iriHg 

1 3 1 00  5640  PORMATMHO.-OAIA",  A8.12X,  12X»-TINE"rP7.2."  SEC  ".X2T 
10110  PRINT  5650, KONPER, KPSCAN 

1 0 1 20  5650  P3R«AI{  1HO,"fiODULB«,6X;"nODOI.lN,6x.A8,  U.  AS,"  SCREEN!, 

10130S2X, "MONTHS") 

10140  PRINT  5560 

10150  5660  FORMAT! " NO . " , 3 X, • N oMr NCl ATORE* . 5X . " S CREEN" . 3X . 

1 0 1 60  S" INT| VI  IN",  1X,"EPH  REMAIN") 

10170  PRINT  557o 

1 3 1 90  5670  F2RHAT(1H  , 5 ( " •"  ) , 1 X . 1 5 ( * ) , 2X , * ( ■ r " ) . 3 ( " — — " )*//) 

101 9.0  Dfl  55BQ  W»1,HM 

1 0200  MPH  * JF ( .1*  1 ) • 1 

10210  rr(MMa,LT,1)  REACTOR  * RClJ 

10220  irffns.QE.i)  rtactor  ■ R(iaai 

1 0230  SCR5N?PH  ■ PtO  A T ( PlfiCRN  < M ) > /R  E AC  TOR 
1 0240  AMONRCP!  • SCSlNEEK/PLOAT(SoNur8) 

1 0250  PR'IN T 5<9Q.M.aopulB(M),KPV(ai.HSg|(>»(HV.SCRlNErN,AMpNRBH 

1 0260  5690  FORMAT : " " . T 4 # 4X . A 1 4 . 3 1 , 1 5 * 2 X . 17 . 1 Xu E8 . 1 , 1 X. r 7 . 2 \ 

10270  5680  CONTINUE 
10280  PRINT  5595, MRUlE 

1 0290  5695  F 3 R NJ  A T { 1H0,  "RU;E  Op  X If  AS"  ,12) 

103000 
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AD-A072  516  AIR  FORCE  L06ISTICS  COMMANO  MR I GhT -PATTERSON  AFB  OH  0— ETC  F/6  21/5 
OPPORTUNISTIC  MAINTENANCE  ENGINE  SIMULATIONN  MODEL » OMENS  II. (U) 

JUN  79  J L MADOEN*  P A PERSENSKY 


_ia ttfli..  inaim  hhovais,  mio»t  sphma t r 

10312C1 

101112  PA8E  3 °N  T,3NS  9*  SKO|T  ro«K  S ?&4B  1 OF  APERAGMD  

10320; 

10315  I7M  IFUW9.«a:il  80  Ta  57q5  

10340  PRINT  5202 

1 0350  5702  rQBrtATdl".//) 

103600 

10370  5705  I»8  ■ IPG*1  

1 0380  PR  ON X 5710. IP3 

10390  5710  PJRMAr{"0#,T29A"*»|l»E  RBSOFRL®”*  10X*_"PAGE  7.114) 

10400  PRINT  5715 

10410  5715  rORHRI  ( 1HQ, T2t.  ">|PDRT  PERIOD  SBHMART") 

1 0420  PRINT  57 JO 

10430  5720  FJRrjRTt  1HO*lI»^"plOOPNiOO  H15)’) 

10440  PRINT  3723 

10450  5723  rORHAIMH  . 12*. 1 7 ( "*"  M 
1 0 4 5 0 PR IK I SJSO.ISDRUB 

10470  5730  P3*NAT(  IHO.-gUD  RUN"»J2<40X*"XNPUT  OUTPUT") 

1 OUBH  PRINT  5740,BBHKPa»l*KTfcj 

10490  3740  rORHATMH  . T40.  "|B|/1000M*»  2f9 . » 

1 0500  PRlff  5750.I3lMPaD«BR¥«TSTeYB»RTlpa 

10510  3750^  rORHATdH  ."iZHULATION  PERIOD  XS";i7.T42. "NETS  X" . 3X.F6 . 2. 3X;P6 . 2 ) 
10520  PRINT  5?60. IRPTPrD 

10330  5760  fORHATMH  ."REPORT  PERtOft  I>".5X.l7) 

10540  PRINT  3770. LTCr: 

10550  3770  ratnxiMK  . "tits  Him  po  § o»jienji  rancnon  n ".is."  misr) 

10560  PRINT  57*0.(10NUT| 


10570  3780  fOlflAICIH  .HlGHl¥i*  umtUWOJI -1UJ  IS  %I5*"_  T^IIJlfl  JiOUR3"J 
10580  PRINT  5790, WARMUP 

— 15&aO-A7.30  FOB-HAT  ( 1H_.  "NRRtlU? "TAU 

10600  PRINT  5900,SDTrp 

13610  5800.T5NPIA5L1H  . "IBID  I>  ".tBL 

1 0620  PRINT  5910.  MM.  MRUK 

10630.5813  F3RMAT(1H.  ."lUNBjR  01  M3MM5 WAS  ".X2.//J 
10640  PRINT  5820 

, 1 06  SO  .3870  rORMATMH  . Tl2. "iNaiMI  RUMP VH.B"  1 

10660  PRINT  5830 

13670  5830  F2N8AT ( 1 H . I1 1. 39 1 ?»* ) |_ 

13680  PRINT  5840 

13690  3840  F2MAIM.H  .112."*  _«SU¥ . !L? TIME  .1.")  

10700  PRINT  5830 

_ 1.aT.l0_3iSQ  f 2RBAI ( 1 H-  RlPOlX f)NP,  MOO, tUHT mint  OWE") 

10720  PRINT  5860 

1 0730  516.0  F2R-H.AKJH  *"  PiRlS>B_ _riXUL_  MOOS.'  MOPS!  MOT"! 

10740  PRINT  5|70 

1375.0-5870 ..rami  tin  N _ HOURS  I a RLX  EARLX  UACHZfi  TOTAL") 

10760  PRINT  5875 

_ 107  73- -5-171.  f 

1 07  8 0 J2X. 7 r"*"),3X, 5 ("-"),//) 

10790  5880  rORBAI ( 1 rf  , 12. 1 X.XI . INt I4.5X.I4. 4x.I4.3l.I4.3X, 15) 
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10800: 

loaio;  print  psta  lines  

1 D ft  2 0 Z 

_10  810*170.  58 iQ_  K ■ liJCLASi 

108  40  PRINT  548  0,K.K*XiltFlD.l3tJSE1(K).IiauS*2fK)»*3T«2(K)(»IGTHa(K1, 

10850S  »GTOr?(K)  __  

10850  5390  CONTINUE 

10870;  _ __  

10380:  print  totals 

10890: 

10900  print  5905 

10910  5905  raRflXIdH  

1092052(4X«4(--"n  ) 

10930  PRINT  5910,850SElT,HsUSE?i;S3r«2TiM9rjjir,B9?or8T  

1 0940  5910  FORMAT  C 1 H ,"T0TaIS"*3x*I5*4X,X5«3X*I5*2X#I5#4X«I6» / i/\ 

■ -10950; 

10960  IF(IAVs;EO.O)  30  TO  5920 

1 0970:  

10980  PRINT  5915,I0BP»«X 

10990  5915  rjRflATdO", "SEED.  UHL  %lil_  . 

11000  so  TO  9993 

_.mi  0;.... 

11020:  EN3JNB  NRTS  ANALtaiS.  NITS  ALONE 
1 1022:  

11025:  top  or  page  3 or  long  or  short  eorw  mot  avera3Ed 

11030:  _ _ 

11040:  heaping 

11030  5920  IPG  ■ IPG*J 

11060  5925  PRINT  5930.ZPG 

1 1070  5930  ,PJR!1ATHH1.11T."«»1I£I  »BI8  imiSHMiZ.'mi  M>l 

11080  PRINT  5940 

1 1090  5940  raRaArMH0.r2l,»DHTIlBiJrlON  OF  MODULE  REMOVALS"  1 

11100  PRINT  5950 

H11Q.195Q  rpRHATMH0.T23d<NBTS  RETURN  TO  PMFOZ  ALONE  1 11 1 

• 1 1 120  PRINT  5>60 

1 113.0  5960  12RJ3A1J  1M*iXf_?BASi  INITIAL  OsAflE  (IsSCREEM  SCHED  S". 
11140S":rENN  TOTAL  FINAL  «RTS  REm/ 


11150  PRINT  5970  

1 1 160  5970  FORMAT ( 1 H , "iTgM  ITN  NR?!*  NR  13  *.4(»NITS  "I, 

111703"  X ALONE  1 0OOf H* ) 

11180  PRINT  5980 

1 1 190  5980  f ORfJAT  ( 1 H ,"-•**  — » 1 X.  X.5  f"!*  *X.  8 < *•"  I , IX . 

1 1 200 S5 ("-")# IX# 6 , IX. 5< ), IX. 10 f-*).2X*6 ("-")•//) 

1 1 2 1 o ; . .. 

11220:  OUTPUT  LINES 

11230; 
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11240  5990  03  6000  « * 1(RN 

1 1250  PRIST  S010,H,NPr8(Rj.BH*r«#:M5»«u»It3(HU«BS*IT»(M). 

1 l260*M»CHRRrsfM) , 1SCR»BIS(  M) . NT «R T S ( H ) .FSRTSRC ( H) 

1 1270  6000  C?W JXMUE  _ _ 

1 1 290  60  1 0 f JRflAT ( 1 H . 1 X*  12 . 3X,  14  1 X#  f6  ,*2»  2X . X4.4X,  14. 3X . 14 . 
1l2m3X.I<tt  1X,I5.3X.r6.2.3x.r5.<M 
1 1 300  PRIST  6012.!1RTST;mjrRT«T.NuS«RXSt. 

1 l3lO!NSCHRRTTfKSCR«RTT,HJ»RTST  _ 

11320  6012  FORMAT  MHO. "TOTAL  "»I4,9X*I4»4X,IR»3X,I4. 

1 1330S3X.  rt^*  IX.  15.///) 

113405 

1 13505  EH3SNR  RRTS  AtULXSlS.  SHI  *ITH  EM<»X*E 

113525 

1 13555  LA  ST  H*LF  OF  PASS  3 LOSS  I«6  SHORT  _FOM_*0r  RPERABBO 
113605 

113705  HEA9ISG 
11380  30  XO  6033 

1 139 0 IP1  « IgS»1 

11400  6020  PBXRT  6030. IPO 

1 1410  6030  F3RMAT( 1 H 1 . Tj7 4"B* |IRI  IRT8  ASALISIS", 1 0X, "P AOE  ",X4| 

11420  6035  P8XRT  6038 

1 1430  6038  FQRHAT  ( "0" ) 

ii440  prist  6040 

J_1 450  6040  f3»BATMHO.T21."QXmiii;tXOS  Of  KOPUH  REMOVALS"! 

11450  PRXIX  6050 

1 1470  6050  PgRHATMHO.TlO.-SlTS  Hjr«  RRQZSB  SITS  POLIST") 

11480  PRIST  6060 

114?0  6060  r3RflAr(1H0tTl6l"tl3*3E  055RBIR  SCHRP  S", 

1 l500S"CRE|(f  IOTAL  HOT  AffRClgB") 

115.10  PRUT  6070 a t 

1 1520  6070  P3RHAK1H  . 4 X#  "1X11"  . 1 t.  " SRTS-,  6X.  4 ( "RETS  "),"RUT  »RTS"1 

11530  PRIST  6080 

1 1540  6080  PSRBAK1H  . 4X#  ,"3xJ8<,»*  ) . 2x7"—  — — 

1 1550  4"  — -*  — "• JX.  1 !("••>.//> 

115605 

1 15705  OUTPUT  USES 

115805 

11590  6090  03  R100  M ■ 1»«M 

1 1 600  PRIST  8iio,H,MxUMRi3(Mj,(!ru5siFs5M>.HxicsSSr(n). 

1 16l0  4MXS  = 8('*Tf«).,lNRTSsTl((fl)  .MXOrSRTSfHy 
11620  6100  OOWtISUE 

1 1630  61  1 0 F3RfJAr(1H  . 5x # X2 . 7 *,  14 ,‘5x.  14. 4X , I4.4X#  14 . 4 X. X4 . 7*.  14  | 

~n  wtti  ir  TnT.ixmr  r r s iTmtu  s¥i  tt.tf §7  hvtt ; 

1 l6504BXS56MTT.n!fR»THTl.HKOKSRTr 

1 1 650  6 1 1 5 rofHAT  ( 1 HO . "rOrA  L"  .9* , t4  »5X.  X4 . 4X»  14, 4X,  14 . 

1 167044X, I4.7X.I4. ///) 

I 16805 

116905  roOT»3T*3 

I I f TO  5 

11710  prist  6120.8EHGHBTS 

11720  6120  PJRHAK 1H0.3X, "TOTAL  IH3t8s  SrTS". IOx.15) 
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PRINT  6130,ENRrSPC 

6133  F3RMAT(1H  .9K,-EN0rHE  NRrS  K".IX.F6;2) 

_..FEU.r_4l4  0t5l!lUl_  

6140  F3RMAI { in  ,3X,"X0lAL  *B«/ 1 OOOrH" . 1 IX . F8 . 4, /// ) 

m 

Z MODULE  REMOVALS  fl*  K PERIOD 

Z PAGE?  4 THRO  11  L0N3  FOBM  ELSE  HO*  PRINTED 


11730 
1 1740 
1 1150 
11760 
117?0 
11780 
11782 
11785 

uiafli 

1 1800  rpUP.EQ.I)  GO  TO  64QO 
11010  6150  D2  6160  M - JUftM 
11820:  HEADING 
11830  ipG  * IPG4-1 
11840  PRINT  6170, IPG 


11860  PRINT  6180 

11975  618  0 F2MAT(1H  , r2$."*EfqRr_.Pfi«iPD_  JMllAIi"} 
1 1880  PRINT  6190,MODULE(M 

1 1890  fttSO  PatKEtf  1H0.I29.M4) _ ..... 

11900  PRINT  6200 

112J.0..  62QQ  FQRftAIMR  . ri8._lSf  "*UJ 

11920  PRINT  6310.IS0RUH 
1 1930  6210  F2RHAK1H0.MB1P  R(JN-,|X.IU_ 

11940  PRINT  6220,MSCRHfMr»NP|CRN 

950  6220  F08MAT(ia_,*?CRlBN  15  •,J6i7x 

n950  print  6230,or(Mi-i).ai(sn 

1197Q  6230  FQIMATMH  , "NUMBER  OF  PARIS?* 3X.  12  ) 


-1+IM 


itM  _is  "*ui 


11980  PRINT  6240,MOHUTB 
1 1990  6240  F9RPLA.T11H  x-HONTjUt  qriLIllIlQN.JlLti_I.5lL 
12000  PRINT  6250.IRPTPRD 

12010  6250  FQRMA_I(1H  Ail*_PO|T  P_Ell05_ll  "illi  __  _ 

12020: 


.151 


1 2040 
12050 
12060 
12070 
1 2080 
.120  90. 


6260  PRINI  6270 
6270  FDRMATMHOj  Tj5 
PRINT  6280 

6280  FJRMAT(1H_tri1,49(«- 

PRINT  6290 

6290  FORMAT MH  .111."*  * 


"ftOpULB  REMOVALS  (ALONE  » NRXl  HUH  ENflINI) • L 

n . 


12100  PRINT  6300 
12110  6300  FJRMAT( 1H 
12120I"PA8T«7) 

12130  PRINT  6310 
1 21  40  63  1 0 F3RMATMH 

.12.153  1"  5 

12160  PRINT  6320 
12170  6320  FQRMATf 1H 


USAGE 


* * « 


XIMS . 


LL 


• »»q»1  an  tilt  Mant 


MA»r_ 


PEBXOO 


FAILS 


parts  prts 


.0NE"*7X, 


HOT%5X, 


K HOURS  mu 6A*AX  _ JJ^r  REACHES". 6X. 


12130S«OUT7. IX,"  TOTAL") 

12190  PRINT  6325  _ _ 

1 2200  6325  FORMAT ( 1 H . 2 ( “A* ) , IX, * ( J * IX# 8 ( ) # 1X. 7 ( 7i" ) . IX, ) , 1S2 

^2lOS8r-")  

220: 
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12230:  LXWf  PRINT 
12240: 

12250  00  C3J5  K • 

12260  PRINT  6340,K,K*lSfrP|D.MOOuSjlH!;iC».flOOOSB2(n,K). 

12270BHOpTH2CW,K)1WODTHl(a»K)tH3P«C«(H>KYt-HOPfOXl(a.m __ ... 

12280  6340  NRMATMH  . X2»  1X(X|,  1 Nr  X5«  ftX.'XB,  2*»X3»3X.  X5,UX.  IS.  UX*X5  ) 

12290  ®330  CONTINUE  _ 

12300C 


12310=  r&T|tS  COMP  8 PRtNX_  _ _ 

12320: 

1 2330  PRUT  6350.MT(J8E1(M).Hr«SEi(M).  MtTM2(  fij  kHTTMl  ( 1 ).MT3CR(H|.  MT  TOTI(H) 
12340  6350  F3RMATMH0."  fO*Rl  8"  , 1 1 2 1 15 , »X«  I§.  2X,  15 . 3X.  15. 4X . 15 . IX . 15.  ///) 
12350  PRINT  6335 

1 2360  ”6355  TQ  RflAI  (1  HO , Il6 , " IN  RUT  * * * • * FINAL  ", 

12379l"*_*_*  » * »") 

12330  PRINT  6360 

12390  6 36  0 FQBBAK"  ".ri7."M|B  BASE DlpOT  TOTAL  FOR") 


12550  PRIST  61*05 

12560  6405  r QRMAT ( " 1 " . // ) 

1 25700 

12580  640J_P8TRT  6410 
12590  6410  r0RMAI(-O",////> 

1*6Mi 


L 
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12610  6415  PRINT  6420,1*3 

1 2620  6420  T5RHM(  1HO,ri8,*NODUL6  RBSOVAI,*  Sun«ARr*»  8IU"*AGB  _".|4) 

12630  PRlRI  6425,XDArE.rjIttE.llXnE 

12640  6426  FQRK AT  ( 1 HO  t " OAJB  " A8 , T4 1 , ••  TtMl  " , f 5;2.  • $BC_  » , 12 ) 

12650  PRIRX  6I?30,KPSCR8 

12660  6430  FQBflAr(1H0«T7r*BOPULE,>X20,**  * » PRIMARY  *♦♦*». 

12670S10X.48) 

12680  PRIRI  6^40 

1 2690  6440  FORMAT  ( 1 H ,»  II  MON|MClRtUR|  8SB  (JrDlP  TINE  SCRIM"* 

1 2J005"  tOXjH,  INTER  Vji" ) _ _ _____ 

12710  PRIRX  6450 

12720  6450  rgRBAT1 14  IX,  14  ( m»)  , U.3  H ^1. 3tt  5 {".»),  2X,  _ 

f 1 27  30  S8 ("•")»// ) 

12740  6455  DO  6460  ft  ■ t,RH 

12750  PRIRI  6470,M,HOOUU(8).HalB(ll).”«UD(Mr,Nr«(MJ<HSCIi(in, 
12760Srror8{8).MSCRN(M) 

1 2770  6470  FORftATMH  . I2» IX, A 14. tu , 1 X. ft , lx; 14 * 2X, 14, 4X715, IX. II) 

1278-0  6460  CONTINUE 

1 27  90  C 

12800  30  10  6478  

12810: 

1 28200  TOTALS  U»E 
12830: 

1284121 

128  50  6475  (If US8T-«A0SBr*(|W«tr 

12860  MAUpI  ■MAUDT  + NUDJt  

12870  NArBI*MJXMT*(lXNr 


12830  MASCBlBHASCRTtMSdE  _ 

12890  NxrflX*MXTOT  + lirorRT 

122.102 1 

12910  30  TO  6485 

12920:  .... _ _ 

12930  6478  PRIRT  6480,  ftUSBT.  N(jDr,  ftlftr.  BScRT,  HtOtRI 

12940  6480  FORflAJ  M HO,  ■ J*  A»Q  I9TA£«  *119*14,  1X.I4* 21,14*21.  14.  4X.I5.  /// ) 
12950 : 

12960 U11AV3.(?I.1)  31  13.  AM  10 

12970  30  XO  6475 

12930:  _ 

12990: 

13000:  ..  

13010  6485  If(tP.EQ.I)  JO  TO  6596 

13020  3Q  XO  6500 

13030: 

13040  6490  UUfUX.Ia»fl tflLlfi  H9L  . 

13050: 

13060  PRlHI  6495,WAUSBl.«AUDr,!lA*!lr,lllSClI.ftIiar  ... 

13070  6495  F ORHAT ( "0" , " SBED  lOTAli  ? * l7,4 ( 2X. 15 ) ) 

131802. 

13090  00  XQ  9993 
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13130:  - - 

i3iio:  part  removal  summaries 

1312Q;  _ - _ 

13130:  5U*1|JABJ  Br  NODULE 

._mjiOLi 

13150  6503  D3  6510  M ■ 1,MM 

13160:  heabipss  

13170  I r f M * Efl,  0 1 ) 30  to  6501 

13180  IT  f!U«t04)  33  10  6115  

13190  ir  pM , Efl , 05 ) 30  r°  6515 

-13230  IT  IlUftt.0-61— aQ_£fl_61-ll 

13210  6505  IPS  m IP3*1 

13220  PRUT  6505 * IPS  

13230  6308  f OPKAT {1 H 1 , t J5 , ”PARTS  |E»3?!l  SUMMAir". 15X,"PAOE  ".I*) 

13240  631*  PBUt  «520. MODULI  i)  

13250  6520  t ?RMAX ( 1 HO . 2 K, 1 4 x, JX. •>>> » . A 151 


13270  "6530  EORMAT ( 1 H 9 , * PA  RT" , |X , "Va  rT" » 8X# • l **  ">. ’REMOVALS" , 7 (J **T, 

1 32  8 0 13X • A| ) . 

13290  PRIKX  6540 

13300  6340  E3RWAI(1H  ."gO,  J R*MR" , 8X, ’URA»*  TOLERARCE  U-DEp  XIHC*. 

133103"  SCgEBN  TOTAL", 3x»"S:«BES"1 

_ 11125-  JFTRI  1550  

1 3330  6350  rjRPlAT  ( I H I X#  1 4 ( ),(  " ) . 1 X.  9 ( ) , 

13340341"  e— t").2I#8(  — "»,✓/) 

13350:  LIMI  PRXMT 

13360  JSSqRB  4 0 

13370  DO  6560  J-JT ( Ml , jPf M*1 1*1 

-1-331-0-  II  i & PI . U . 0 )J  3 3 ;RJ  _ - JLPV13-1 

13390  Ir(EPr.EQ.I)  I3SCRM  p JPMOf(J) 

13400  PRI6T  6S7  0.J.PAtl(J1,3USB(  j),0TOl,a(  JKJOOlPUli  JTM(,Jl,US6R(aJ, 

134103  JTOXRtOJfISSCFM 

1 31*20  6370  ra*MM(1H  , X 3»  2* , A 1 4 , 1 JU , 2X,  16,  JX*  JUJ#  2X 1 . I6*JX, I#.) 

13U3C  6360  CQHIISUE 

_m.4ii_iuiiaiii_tR.iiLi 

13450  PRI«r  6580,MJ03Er(M>,MjTOL*r<M5*Mj9DEPTrM),ljriT(M), 

1 34503  MJSC:Rr(H),MJTOTRl<f1»  . . 

1 3470  6580  r 0 R MA T ( 1 H 0 . * «0|>U LI  T Ot * Ls ■ , T23 . 14  * 2 1 , 1 6 , 3X , 3 { 14 , 2X  ) , 15 , /// 1 


13480  6510  comm  

1 3499: 

1. 3 3 5Q.1_2.RA M D TOTAL  PARTI 

13510: 

1 3520  PRIKX  6590,OUSET»JXOL*r,  JOfiBPl,  JXBXtJSCRT#  JrOTRI-_ 

1 3530  6390  r gRMAT ( 1 HO , " 3» ABO  rOT AtS" , T 23, Xtt , 2X * 16. 3 X,3 ( X4. 2X ) . 16 ) 

13540:  . 

13550:  RETURa 

mifil 

11570  6593  30  XO  196 
135801 
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21.  Subsection  7500,  Logic  for  Objective  Function.  This 
part  of  the  program  computes  the  values  needed  to  form  the 
objective  function  of  the  program.  See  lines  13590  through 
14720. 


13590:  SUIS8CTI0N  7500 

_ 13600;  _ 

13610;  PIS  OUTPUT  OBJECTIVE  POECtlOl 

1 36  20  ;• 

1 3630;  PSRTS  REPUCEHEEr  COSTS 

1 3640;  _ _ ____ __ 

13650  7300  MSTtCPCS  ■ 0 

13660  00  7355  M ■ 1 » HE  

13670  !10rtCPCS(H)  ■ 0 

13680  00  7 3 30  J ■ JF(  MU  «1 m 

1 3690  JTPSCfDfJ)  ■ JUDEPUl  ♦ jTMfJ)  ♦ jS~C!t(J) 

1 3700  RLO^SCHSKJ)  ■ FLOAT  ( I.F3YC) /FLOAT fI*IWYBS ) + FL0AH  JIPSCKP (I) ) 

13710  JTICPCST(J)  a RLcP|CKD(  JJ*PtOlt(JSlPUn 

13720  IGUCPCS(N)  ■ MJTlCPC3{Mj  *_JTl,e*ClTl£j  _ 

13730  7310  CaETIHUE 

13740  nx33gs(n).nxsPcs^}+norx,cPc»("l 

13750  NGlT-CPCS  ■ NGUCpCS  ♦ 1ST 1C PCS ( N ) 

13750  7305  CgSTIHUE  

13770  sxPCsranxpcsT+KaricPo* 

13780:  _ _ : 

13790:  MODULE  PIPELINE  COSTS 

_JJ8i0j. 

13810  MTPIP-S?  ■ 0 

1 3820  7320  0g  7330  M ■ 1,H«I 

13830  OlOHOORCM)  a PlOlT { M0» «T* 1/OCOg VE*PREPH ( M ) 

13840  PlP13ryM(d)  - DLc«DPl(gi*(i;0/100.8)*(MlTSPc(5)»FLO> 
13850ST(M0PIPEfg) ) ♦ ( lOO.OaPslTSPCMl  ) *FLO#TfrftBPXPB(  M)  ) ) 

_ 13 8$ Q_  MpIPCSTfM)  . PI PEQlTfl(H»rtOirtgSL»(«n 

1 39  70  MXPIP(.M)-HXPlP(gJ*gPtP:8T(M) 

13880  MTPIPCSX  ■ MTPlteBT  ♦_*PIfCSTj»)  _ 

13890  7330  CgETIKUE  * 

1 3900:  _ 

13910:  module  mmiiNMci  costs 

13920: 
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13930  ICTHCST*  0JLCrMC3Tl*0llCrncSrS«9ri,CTrtCSri4«0|lCr«CST2»O 
1391*0  7340  03  ?350  H ■ 1,*.1 

13950  r*CKBM?(!1  WlO*mFCT:>/fmi(I$XNt*s!*rmr(Sfr*TSWTH(MI) 

13960  ng|»»TfCH)»rmiayeye^yto<ni8imstmo<t<iiftm(Hi ) 
13970  rAcnRT3cn).rL0AitLKrC)/no*r(i3tHX*sT*fmr("iim («) ) 

_1 3 980  LCM  c • r 1_r?l»  FXC  J5J1  ttTS  ( « ) »?  LOaTJ  1 D PC  3T(M  y > 

1 3990  I,CflC»ir2;rt)»rACMRXa(n)*fLOHT(fiBSCST(nlT 
14000  LCNCSrSM)«FfcSa*tBif(BJ*Fl3lk»(  lOPCsTfSH 
140 10  LXC*t3(«)»LXCST3{«J  + lC3CSt3<  «) 

14020  LXCSr2{»)«LXCaT2tH)*lC«CSl20») 

14030  LXCSri  (R)"LXCST1  tfl)+tCNCSn(H) 

_l40.t0_  LCMCS  LULL"  LC  MOST  1 in  )»LgHg»X2(^ 

14050  IXC«UN)"IXCSX((11*1,C|JC|T(BT 
14060  LcmCSmcTHC»mCNC|T(Hl 
14070  lCSXUtK)"LC5CST1  (.H>*tcicsrj(n)*>te:ne8<2(«) 


140  80  LcrSOSU-tCIRCSMnCaCBlKMl 
14090  icrnCSXJ-tCTriCSTJ^lCBClTatM) 

14100  LCTBSSTft«I.CIH.CaiiL»tC|Tallll 

14  110  LcrHC3T5^tCTrt:3r2  + liC«C3T2(HJ 

14 1207350  CQMXINUE 

14130: 

14140:  to3Pif?E  Basina  oasis  ... 

14150: 

_ i4*60  7360  cic«»is«no»tLFsigim3inn3iBiia>»rioir(iny9iHTS» 

14170  Ei,TQriT^FioxT(irric)/Fi,ORriisrMrisi*Fi.ORr{»#rorRn 
14180  aiCOLP  :ST<"ir  IX  ( FL;»*Tj*  FLOUT  ( K0FCST1  ) 

14190  blEt'06|Sg>!iOTOTBT*V!l'9VtTS 

14200  BltCl*SE!»Fl0AT(ItF5TCJ/FU04JfXSIHriS»*FLmiaBaSUK) 

14210  NXD«BOyaXDEP04.Ki:oFSSr 

14220  aiWl5St>XFIX(ELgBfcSl*Fl,3^nt»am)) 

14230  HAVBCSTnaBSEPCsr/PflgBxSK 

14240  lMAV*;5XsNBSEPC3r*LfCrC/I§jMri8  _ 

14250  nCBS:ST*LCTECST*LFCX:/ISIHt«S 

14260  KLCB«I.Ct*ZriX(BL?aT|T.l*(fSUr 

14270  LCTECSr"FLCRRTSr*LFAVBCST*-at50PCSt 

14280  HBHCSrnCIBCSl/W.llaTlT.4151lllBB/J.rclC 

14290  ixECsr"LXBcsr*i:ricsr 

14300  NrcB?:§T*aLCRRisTtlHAVB:sr 

14310  NXBlVSE*aXaA3S4-(»T:sSCSr 

JL43  20  EL590*"l*KFH*FlO«I|H9»ttSll/PS9|FI 
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14330  BRrSPO:j00.0-BNRrS«C 

14340  EPlPE3iyEL0DDa*f(lWlTaP2/lQQ.B)*HBglBE» 

H350  J{  ERT5P0/:100.0)*»aPlPS) 

i<*360  ww;iMi»»o!t«>tamm«  

14370  NxP*P*HmP  + NTP!*CjT 

I43fl0»  

14390:  TRANSPORTATION  2011 

14400: 

14410  LC^XTIAN-OILCOTTRAJI-O 

_ 14420  IcCHlRA»S-im{iti»jiTE*fI,gAjUtie5lJL  

14430  7365  DJ  7368 

1 44  4 Q_  l,c7??ANSlJn-IIIUfAClll*5(Jll.*imiiMLCmmil 
144  50  MXT8  = STfM)-MXTRfisTf  H)  ♦tC!jTl  A VS  MU 

144  60  LC*mAK"LCMTlBAB*l.CMT»*mjU 

14470  7368  CONTINUE 

14400  NXT8A|>«NXTRAN»LCBTaANS  

14490  LcOTrSAS-tCNTRANS+LCxIrRAN 

-14500  _!1JCX8A»^BXTRAN*l(CiTjRAll  _ _ 

14510: 

14520:  OBJRCTTVE  ruNCTlOM  

14530: 

14540  7370  N3BgNCST«LCIEClT»llIHPcSr»lgiTlAas __ 

145  50  lOBgNTbT-O;  ILCMC3t"I«cTECSr 

14560  lMPiPCST«NTPlPCSIilHiIilCj5»5 

14570  DO  7 3 f 6 A ■ 1#M1 

1 4590  WOBtEgSTf  M)»LCM;aT<()l)»«elBCSrHn4-BafLCPCSOni-I,C«C«r3(H)# 
1 45  90 SLCMCST2 ( M)*LCMTR ASS (H) 

1 46  00  IOBtNTOT^IOBFSTOI*HOiriestMl 

14610  zi5Bcs;#xicHe5rne*cif4c«t*bdBeBtif!(t*&sa6sr2(«i 

14_620  IHPIP:ST«IMPIPCSl*HPlPgST(Ml  _ 

14630  ZB3U:PC-inBitCB8*n8ns»5«f9i 

14640  738Q  CONTINUE 

14650  XXC$T*IXC3T  + ILCFICST 

_ 14660  XxPTPflXPIPi-lHPIPCST . 

14670  IXP*Rr-TXPART«>I«snCpC 


1 4 6 9 0 » 

14690:  RETURN 

14700: 

14710  SO  TQ  107 
14720: 
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22.  Subsection  76C0,  Objective  Function  Tables.  This  part 
of  the  program  contains  the  logic  to  print  out  the  objective 
tables  near  the  end  of  the  program  output.  See  lines  14730 
through  17210. 


14730:  so BSicriON  7600 

imos-  _ 

14750:  00IPWT  ROUTINES  ••  OBJECTIVE  fUtcTlBR  TAllES 

14760: 

14770:  COMPUTE  EH3IHR  PlAI*ttl*S:*  COST 

147805' 

14790  7400  IKJP.BQ.I)  80  To  H00 

14800  IPS  ■ IRG*1  _ 

14810  PRlR*  7810.IP3 

14820  7410  rORHRTMHI.TZVOBjBCrtVe  gURclIOR"  kT53 ; "PASH  ",I4) 

14030  PRIRT  7905 

14840  7405  P01WAI ( "0" . ? 14 , "COMPlEtl  E83XM  NaZRTIHARCE  COSTS") 

14850  PRIRT  7403 

14860  7403  F5R«AT("0",/,T29,"*  * * * FACTORS  * * * 

14870  PRIRT  7if  15,  LFCrC.trCrC 

1 4660  74  1 5 r0Rf1AT("0". 113, "IHime  > ».I2,V  REK/REP  AV.BaSE  7, 
148904  "av;o8p;  ", ix,i2."«mi") 

V4_9Q0  _PRIRI_  7420,ISlMTaS  __ 

'149  10  742^  F3RRAT{"  " . T 1 3 , " IBSU'B  Pill,*  CST/REM  C8T/R*M 

1 49204  "CJX^RffL  COSTSV)  

14930  PRIRT  7925 

14940  7425  TQRilAK"  T 1 3, " »«»-» 

149504"  •R"**t*h) 

14960  PRIRT  7830,N3TOTlTliIi(TOTRr;R8S5STtRlCRRrsr 
14970  7430  F3RHAt("0"1"BASB  «SHVLs  • , 1 X ,14 , 1 x , F8 . 4 , 3X , 15 , 1 8X , 17 | 
JH910  PRIRI  _7B3_5,S„BR3B^S*,EX,:BA8B.l»AVlCST,tl»AV8:sr 
14990  7435  F3'RljAT("0","  BASE  RTg  " . 14 . 1X.Fl .'4 , 1 0X , 16 . 

i50i?S1pRt}r  74«o.»e » Tv e'f a 7 YisKRfT,  w opcJvinco Pcsr~ 

15020  7440  F5RnAT("0","  depot  HRIs  « , 14 , 1 Xi »:»« in, it , II, 

1 5030417 ) 

15040  priRt  7945, lctecst 

1 5050  7445  FQRMAK-O", /."3RAB0  T Of  U" . 4 lx*  Z«  ) 

1 50600 _ 

15070: 

15080:  „ _ _ __ 


loo 


15090  7500  PRIST  7510 
1 5100  75  1 0 FORMATCC") 

15110  PRIST'7515 

15120  75i5  F3Ra\T(»o".T2»tl>jB3E;r<7t  function* > 

15130  PRIST  7520 

15190  7520  f3RnAT("0".Ij0»,,SO0Uie  MHUlHCI  COST  NXII") 

15150  PRIST  7530.L>ClC.irCrC 

15160  7530  F3RtJAI(«0*t2S,"  HOftOJtB  ?%X2jV. 

15170S"  OJPOT  ",3X,»rOXAl,  F,X®3*  III?) 

1518  0 PRIST  7540.ISIHH8 , 

1 5 1 90  7540  FORMAT  ( " " . " X*lM"  , 1 X.  •«  OrtBlI  CtA*  Ul|*  « 3X,  • MOO  IEMOVI*  ", 

1 5200S1X,I3,7  COST  F ACTOR*  # JX , 08P0T*)__ 

15210  PRINT  7J50 

1 5220  7550  F3RMAT<"  ■ . « i*#*"  , 1 X . 1 4 ( *•?  > . \l . 1 1<  7-"  ) i IX#  6 ( 1 X* 

15230S1K"?").  1X,12("-*W//^ 

15240  OQ  7570  H«1.HH . 

1 52  50  print  7 58o.fi.«ooun(M).K8RjssrH(My,Fic*irswc«).nnpcsTnri* 

15260SLCMC$I3(!J)  

15270  7580  FJRHAT ( " ".XI, U.MS.X?,4X»ft.a.2X,XI#4t.It> 


15230  7570  CONTINUE 
15290  PRINT  7590.1CTNCST1 
7590  F3PaAX("Q"*IttJ^; 

15310: 

153201.  

15330: 

15340: 

15350  7600  PRINT  7610 


15370  PRINT  7620 

1535L0  7620  rgRMAT  {"0"  , T2  ^"CO^Pilt  1 Mttli  HHIIHI  CS5»M 

15390  PRINT  7630 

15400  7630  F3«flAX("0%lI/!;0^UX  PllA»D  UtB M i l l 

1 54 1 0 S"  PIPUINE  STS  lUT  ToTaL*  J 


1 5430  7640  r 3 R M A X ( " "."BBB/l000fN**,I2**/,»X5»2X*"HH  PIPE  RATI  PXPE",3X. 

ii4!t0i"iuAmTr  .jpRiie Mini 

15450  PRINT  7650 

15460  7650  F3PKAK-  " . B f*"!  . 21.1a  ( f «)  l IN,  L.-3»g»  *)« 

1 5470  S2X.  9f  J *2X,  8 IX#  TCMH 

_15JlAfl_  ^RlAI_7J540AERKrH.BXCPPR«gXlXSPC>lDHRl*Hmc>.  

15490SNBPIPE# EPIPEOTT.NSlP.NTpiPCst 

15500  7661  FlRtLAIf "0" j.F7*4k» 2XiF181.7.»JXttSj.JiI<tlLlX# 

155i0SF5.1«1X.X3,3x.F8.S,JX.I8»1I#X7) 

155201.  ...  _ 

15530:  OBJECTIVE  FUNCTION  ••  MODULI  NAINTEIaNCI  COST! 

1 ^ 6 U 0 1 
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15550  7700  IP8  • IPG*1 

15560  7720  PRIRT  7730,  ZpQ  __ 

1 5570  7730  P ORMAT ( - 1 " , T2« . "08 JRCttVE  PUNcTXO#" * 1 8X . " PA3B  ".XU) 
15580  PRINT  7240  . __ 

15590  7740  F0*HAT("O".r22.,,NOOUI,E  niNIENMleB  SOSIS-UQVI") 

._i5&aa  print  775o.LFc:r  = .iycyc.rLpeTT 

1 56  10  7750  rQRHXr("0".5x»"ToTU  NrTS  ♦",12."/  DEPOT" , 

15620  5"  ?0m  BASE  *".X2,"/.  sASE%4riTQm  *.12*"  X1S") 

15630  PRINI  7760,ISl«rB8,XaiRXR« 

15640  7760  rORHAIC"  "."ITEM  HOC  *BM VlS  ’,13,*!  £OSl  PICT". 
156504"  «O0  E B«V L3  ",X3."  CDST  PACT  QSPOtmBB") 

-15660 ERlAX-Ulfl 

15670  7770  rg*«AT("  1 0 ("•").  1 X, 1 X;  9 {"<?■).  1 X, 

156  SOii  0 ("*"),»*  5 IX,  9 *1X.  12f  *■•");//) 

15690  00  77S0  MbI.hm 

15700  print  7790,«,5r»5T?(ny.PA?!l*ir?IMJ.«0PC3l(M). 

15710  JMRTSCHJ  .PACMRTSd)  , (BSCSTC  M . L5«CST(Bl 

_ 15120..  mO-PiillAll"  ".UiiLX^  lA.3I.P6-.4.tr.I7,fX>I4. 

1 5730  43X,P|.*.  IX,  X6.  <U»  t8  )' 

15740  7700  CONTINUE 
15750  PRINT  7795, LCTMCsT 

15750  7793  rORHAT("0".TI6.,,TOfIL  

157700 

157802  OBJECTIVE  PUWgTtOS  ■«.lODOtE  PIPELINE  COSTS 

15790C 

1A800  30  10  7|25 

15810  Ip 5 ■ IPS  + 1 

15820  7810  PRINT  7020. IPS 

15830  7820  F ORMAT  ( • 1 " , T2l , "OPJECrjV  S PUScTXWkISX.-P  A9I  ",XU) 

ISfiuO  7825  PUNT  7830  

15850  7830  rORHAT("0",T26."aODULE  UPELXnB  COSTS") 

15860  PRINT  7940  

15670  7 B 4 0 riRHAT("0",6X."DAll,T  DEMAND  #A*E 


158804"NRT$  - BASE  PlpltlpE  flOQaiE  POST  P|*?l 
15890  PRINT  7850, aoNurg.XDCR 

15900  7850  FORNATt"  " . " ITNH  ReM/IOOPf H*".X2. "/".IS. " PIPE".  _ 
159104"  PIPE  OTY/MOO  PRICE  MODULE’) 

15920  PRINT  7060 

15930  7960  FORMAT  ( " 1 X , I * 2x.  ",6("-"). 

1 5940  4"  — P*-*r •7-%//) 

1 5950  DO  7 S 7 0 M-1.MM 

_ 115 60— JlilL  788.0,  a.  PR K f 9 (Ml.  OlOlMR  ( M)  .MOPlPEfa ) . MBPm ( M) 
15970  4PlpSBIXM(i1),HSLP(M),HpXPCSr(«) 

1 5930  7880  rjRdATf"  ",r3.2X.P7.(*.2X,P10:7.2X,X4t 
1599043X.iq,2X,P9,5,1X,l7,1x.r«) 

160O0  7970  CONTINUE 
16010  PRINT  7090, MTPlPgSl 

1 6020  7990  FORMAT ( "0_",T53A"rOXAI_. ",181 _ 
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16030: 

16040  PRIST  7?00  __  ___ 

16050  7900  F3RnAT{-0"./.T18.«r*»P|POltUlOll  COSTS") 

16060:  _ __ 

16070  PRIST  7*10.LFCrC.trC]fC 

7910.  r^RMIl-0 " . 129. " Ilia I2^V_HM1!S " 

16090S.l2»r"iERR") 

16100  PRIST  7920.  ISIWTRS  _ 

16  1 10  7920  rQRMAT  ( " ","tT*M  KOHISetiTOSB  REMOVALS  ", 

16120!!*."  vST/REM  COSTS") 

16130  PRlST  7930 

16140  7930  F3RMAT("  ","■»«*  »>■  " . 

16150  5 " 

16160  PRZNT  7940.NES3S|Ta»BI>:NRri.srRCST»LejXlASS 

16170  7940  FiR«AI("0"."  STO  COHPLrI  8 B*S'.«,9X.X4,  3X.F974.  IX. 17. IX. if) 

16130  00  7950  

16190  ’PRIST  7 9607 H, MODQLl(H) .HXItTS ( K) *# SettfttS ( B) • iftctt f «) 

16200S.lCiyRtWS(M) 

16210  7960  rOR«AT{"  " . 13# *X . A <9 , It , 14 . 3X.il . 4 • tl . 19 ) 

16220  7950  CgNTINUE  __  

16230  PRIST  7970.LCNXTRSS 

16240  7970  r0RnRT("0",T34."8O0UI(Bs  TOTAL  "il7j 

16250  PRIST  7980.LC0TTRAN 

_.16 2i0  _796.0  F3RHAT("0»,Ta6."3RAS0  TOTH  »,X7) 

16270: 

16280:  OBJECTIVE  F0NCTI5S  *vJA8*S_lf  iU£BHlsr  J0|TS __ 

16290: 

16300  8000  03  8010  M • f*|B  

16310:  HEAPIS3S 

_ 1^310 If.  fW.EQ.OD  30  lO  ejOj 

16330  IF  fW.LT.04)  SO  TO  801! 

1 6340  IF  f«.EQ,05)  3 0 JC.0  801J 

16350  IF  fM.8T.06)  30  TO  SOU 

16360  8005  IPS  • IPG*1  

15370  PRIST  8020. IPS 

16 380  8020  FQRWAT < " 1 " , T50 , "gAjB  "?X4) 

16390  PRIST  9030 

1 5400  8030  F3R5JAK"  " . T l3 . "LlFB-lX  MltlD  PSITS  T, 

16410S"REPLA:EME»T  COSTS") 

16420  PRIST  0O4O.LFCXS  _ 

1 6430  8040  F3RKAK"  ",“T20."POr  till  CXCll") 

164 4 0 8015  PRIST  8045.  WoPljlBC  Si 

16450  8045  r 3R«AT ( "6" . *2* . " >> >"  . A~1 5)" 

16460  PRIST  8050 

16470  8050  r3RWAT("0"."pART«,|X.*PARl*,ixy"T0TAl  ", 
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1 6480  iMacH*0  SCHSD  RHU  'Jill i roXAtry 
16490  PRUT  SOOO.ISlMTlS.lfCfC.ti  ere 

16510*"96  "(jIxaf-rT)^  iSici1  •,t2."*rR")  L*  «t3."XLL  * . 
16520  PRZRI  85,65 

16530  8065  PQR8ATMH  . 4 t ) , IX  , 1 4 ( » •"  ) . IX.  1 f<  %"  ) ; 2X.  10  ( "«• ) . 

1 6 54541 4 . 5 f " *"1.2 X . 7 C " • M ,//)  . _ 

16550  DO  |070  0 ■ 

16560  PRIRI  8080.J.PAll(JUJ»seMPHl.lLqflCBD(J>; 

165705JSLPf J), JTLCPCST(3) 

1.6580  8MQ  r3"dAT("  IJ.JX,  M«»4i#I44  5X.F915.1X,  

16590SI7.1X.58} 

16605  5370  CQMW  _ _ 

16610  PRIRX  8090.«GUCPCS(8)  # 

16620  8090  _r_afft.An7.0".la6.-"Jl5ftjfLg-. lXxllx//Zl 

16630  8010  OOHXINue 

16640.  tllKl  I£fjymsi5l  

16650  8095  fORMAT ( "0" . P32 , • |VgS«C  IRARD  TOTH,  T .19 9 

1 5660  0 _ 

16670  8 100  IRS  ■ IPG  «■  1 

-166.86 II(IU0;3I.1)  33  TO  17  36 

16690  PRIRI  8^02, TPS 

1 670Q  8102  ?.2RflAr.("1".?28,"0BJtCflPE  H?*C?IflJ"*1  QX.  "FAGS  ".14) 
16710  30  10  8108 

_ .16720  9.104  PSJRT  8105.U9  

16730  8105  P3R«AX("0",  riB.^OBjaCftPR  FQSC*XOt  • * 1 0X . " PAG*  ",T4) 

■16-7  46,  .8.158  1110-1-113 __ 

1 6750  8 1 1 0 r?R«AX("  " , Il3, "fURNAlt* J 

1 5760  PRIRI  §115  __  

16770  8115  rORHAI("0".IlO."p1|OPtMOO(f15)«) 

16780—  PURI  9120.  XDAIE.PII(1P*1IIM1 „ _ 

16790  8 120  r3R«jAI{"0",  "OAIB  " . A 8 , f 53 , "TIM*  ".FS."2,"  SBC  ".12) 

16800  PRIRX  8425 

16810  8125  rORMAX(«0". ri,"*  * * «aI»TBRARCB  COSIS  * * * P". 

16B205"XPS  TRAPS" ) 

16830  PRXRI  8130.LFCXC 

16840  8130  PORilAK"  Ml,'  |I<3R8 MQR*  R*XR".r4l,*_._URB". 

1 68505"  PORI  PARTS  ",  IX. 12,  ••flftl?  V 
16860  PRIRI  8135 
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U-ruillRin  H ».i 


16930SNOBFHC9T 

16940  8145  raiBATdHO.1*  MOf » U»IT. 9X.H.19;  _ __ 

16950818. I|i 10*. 18,//) 

16960  DQ  1 1 50  n m 1.WH _ 

16970  PRIST  8155.4,I,C!1cSI2{H»,l.CrtSsrifH)'.LCHCST3(«). 


iiiinni  rth  h lull,  n u H wril 


16930  8155  P2RHAT ( 1 H ,I4»I8, I8.l8fI9.rl.il, 18.110) 

.17000;  lOXItl  IP_B  M0DJLU3.  _____ 

17010  8150  CONTINUE 

17020  PRJ»?  8H0.LCTHCSt3tteTt|CSH.LS»es«l.LCrilC»t». 

1 70  30  S«rpIBD5T,I,C'MTTRA».V«itCpCS,tOePlirelI 


WAUliCTIUO'rmiltinfm  mil  < nmf  IMHI 


1 70  50  C 

11 0 6 0 _ I P ( J w 3.- 31 . 1 ) 50  TQ  8170 
17070  I03*NST*0 


? 

\ 


17Q10  iQRFNSXsIOBPsr^TlJIJjBJLlsSl  _ 

17090  iA0B3roi»IA0BST0t*tO|F|sr 

17100  8170  Pain  9110.IfcC4CuIktSlb>»K.lC0Tl8Atl.rMaiL:Pe. 

171 losioernor 

1 71  20  8 180  fSRBATMHOdaMllB  fO r A 1 3 * , f 8 1 . 18 . I B tI 8 . 18 , H 0 ) 
17130:  retur# 

171400: 

17150  Xr(*AVs;8I. 1 ) 30  SO  1190 

17160  00  SO  108 

17170  8190  XP(XSMAX.BO.I)  00  TO  949 t 


23.  Subsection  8200,  Screen,  NRTS , Re  nova la  Per  1000  FH 
Summary.  This  part  of  the  program  contains  the  output  logic 
for  the  summary  showing  screens  applied,  NRTS  produced,  and 


removals  obtained  from  the  proqram  run. 

IS  ipMICMOI  JiOfl. 

17230: 

1721*0:  omur  -•  tin/iooomi  sunjimt: 

17250; 

17260  6200  PSIST  8205 
1 7270  0205  rOBflAIf  "0"  ) 

17280: 

17290  8308 


PRlfT  8210" 


17300:  _ 

17310: 

17320  8 3_1_0_ 

17330*"IEM0VIIS  PER  1000  |H»,» 


•»- 


leimi 


VITI  Mil  i 


1 7 3 U 0 FRIT  8220 

17350  8220  fjlHHC 

17350  mu:  8225, mrs, FUME, LTZMI 

17370  0225  F 3 R H A I ( 1HO,"oAIE  " . A8 # T 52 # * tlHl  SEC*. 12) 

17300  PRUI  S230iBL!UVS 
1 7 3 § 0 8230  F3mr(-0*;?i9,Al9j 

17400  ERIE!  8235.KPSC88 

8235  FOIPJAH"  ", ?l9,*0, 3X.** 

* * F X » A l * **1 
82^0 


17410 
174*9*"  _ 

17430  PSIRT 
1741^0  0240  FJRHAtr 
17450S»SC18B»  SRlS 

1746Q>"«RT0 BEJ1/71 


t » t T t A L 


* *• 


IXBH 


UN/ 


17470  PRUT  8250 
17400  8250  rjaNATf" 
17490*"  1700  FH, 

17500  PRIRI  82«0 
17510  8260  FDRNATl" 
' 8 ( " 


<•  « 
« 


fane*,  lit,  *x»rfHnt*.3x,"  rate 
bat*  * uoo  n;»y 


17520861" -?) »4X» I 
1 7530  PRIRl  827"! 


,13("*")  .*X#i(*^).3X, 

W8X«  6 *U.1»  v«jj 


270 , 8 8 H R ?S fs , »E RK t N J 88 R"f 8^c7bS7f H 
17540  0270  F5RNAT("0","80NFtE5l  8*3 . 1 5X. FI . 2k 
17550J4X,F8,4,KX,F6.2,4X#Fr,4,//J 
17580  00  82  00  ft  • 1#R.1 

17570  PR  IS  J 8jfO,NODUI,E(Nl.»0CRMS5,8ffrEPC(N}, 

1758Q8BRKrg(B),rWR  7SFC(N)tF  « K PHU? _ _ 

rORNAil"  A 14,3k,  l7,»t,f8.2,4X,^,tt,4X, 


17590  0290 

17600IF6,2,4X,f8,4) 

1 76  1 0 8280  C3»tlS»UE 
17620  PRI^X  I2?5,MRULE 

<7630  8295  f ORN AT ( 1 HO . « RUl*  OP  X HAS  "»t2./1 

-JLZMfti. _ ...  

1 7650  IF(I80AX,BQ,ISDR(JF}  iO  TO  8299 

17660: 

1 7670  PRUT  8398 
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1 7630  8 29?  FJHtUrMH3.1J("*").10«;"«IXl  SBBO  1U* " . 1 0X*4I < " *■ ) ) 

17630: 

IZTOO  £292  23  la  1020 

17710: 

17720:  

17730  irUAVS.'EO.O)  30  TO  99*2 

17740;  . . 

17750  PRINT  8297,ENRrSpCX,E*KPHT 

17760  8297  L2I tUl'J'J lSVUlP  IflrtLS_:tai,!J! B TS  » ".fft.2.21. 

1 7770SmBE'1OVT41S  ",F8,4) 

177302  _ 

177J0  30  TO  9*97 

178002  

17813:  OUTPUT  — ACTOAglll  INPuI  rictols 

J 7A2JLC 

17830  8300  IPS  ■ IPS*1 

17840  PRIM  8310fIND4T4,XP3  

17850  83io  roRrur("i",r2»*5,6x#"*emiiu  INPUT". 

1 78 80 J"  r^5T2»5i"#15X»-PB«B  «,X*)  

17870  PRINT  8J15.EN3lNj 

i7i£Q  &j,i 8 rajLaAi("o*'. i ionium  miu 

17890  PRINT  8320. NOPIPE# NBpXPE.NitP 

17930  8320  F?RflAT("0". "01*01  *1*1  tS".  1 1 .13 . 2 1 * * » ME  PINE  XI”. XI. 21. 

17910J"IIST  PRICE  IS  " , 1 7 V 
17920  PRINT  8330,NDPCSI.RB|CiT 

17930  8330  rpRHAT("  "."QlfOl  SU«T  COIN  i 2X*tB. 2X . 

179u0i»BASl  BAINT  SOU  U'jlUlIIlJ 

17950  00  |U20  1 ■ 1.H1 

17960  PRINT  8^30, flODOLB(N)  

1 7970  8430  F3R(1At("0".Tl7,AlUj 

17980  PRINT  t4Q0,HDPlPEtH),«BPXRBt1WaiLPUil  

1 7990  8400  FORnAT("0”.<'Ql90X  RXPC  IS" . IX,  13. 2X*"BASE  PIPE  II". II, 

_ l£fl-aaB2X."-LL5I-gRXC£-IS  "ill) 

18010  PRINT  |U05,NDPCST{H),aBlCSr^1} 

18020  8405  rORHAK"  "."QlPOX  |AI«<  COU  ^S"i2Xkl8A_  __ __ 

18030S2X."BASE  HAINT  COST  I|".SX,15J 

13032  PRINT  3 # 1 Q , IT R C S r ( 6 ) » N §5 E PMN ( 3 i 

13035  8410  FORMAT  { " "."IRAN»P0*T  COST  ",H,5x. 

1£Q3ll^lJUUL3iJA  PAIA  ".18) 

18040  PRINT  8440 

13050  8440  FORMAT { "0" PART  PA|X«,l0Xi  . ... _ 

1 8060  S":oNVERT  MAX.  smfE  SEALE  UNIT*) 

18070  PRINT  8450  

18080  8450  FORMAK"  NO.  «AMC*,11X, 

l£090i"J£TI?  IIW  PA1AU  _lAlM EElCl?a/iJ 

18100  DO  8 U 6 0 J ■ JF(1J,JF{M*1)»1 
18110  PRINT  8f*70,J,PARr(J).>(J),flOr(J); 

1 8 1 20  S8HP ( J ), JSCLCJ). JSL»( J) 

1 8 1 30  8470  F2RflAI("  " . 13  , 2X.  A 1 4 . i i , f 6 . 3.  1 X, 

18l40iI5.1X,F5;2,1X.I7,3X.l8) 

11_150  8 44 0 CONTINUE  

10160  8420  CONTINUE 
18170C 


1 

I 
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18180:  RE 8 8 
18190: 

18200  so  rg  ?9se 

_JLlil2i 

1 8220  0600  8LKAV3  - ">>>  * *V|8Ub  * 

16230:  

18240  1U“3*r*0  ;«UDT»0  | UNI-01  nTorit»0{«SC«T«0»8llRXSP:"IUIllXI 

!’ 


16250  BRRIHfEIPH 
18260  DO  66^5  N-1,«N 

18270  NT0I8 IN1"0 

18280  rRK|HCNJ-PKFH(N)/»fc08T(I3l8*) 

1 8290  rK0ISPCfN)»PNRrS{MJ/rLO8X(r3!im) 

18300  NUSi(fl)*IFIX((FtOXI(N»U8BJN)5  /F10aT(  IStUX ) ) 4-.  5) 
18310  'lUSfT*N0SET*MU3R(M) 

1 83  20  NUOffll-IFIXf  (riO|t(H|UO(HM/4LOl't(SSlMX)  J *► . f ) 

183 12 HJP!»aUQT»  NOD  IM.1 

1 0 340  UN(«)-IFIX(  (PlOlI(HkT«(nn  /rtO»I{  IRIUSI  )+•*) 

1 8350  ’1TNI-art}T*«TM(  a) 

18360  nsoi < a ) *trxx ( t ri •* s ( «* ici ( « n mft*i ( tamz ) ) t • s ) 

16370  NSC?TFHSCRT*NS:i(N) 

1 8380  '1T0X8in}-NUSE(,1UN0D{l1)*HlH(!O4«Sc*(HF 

18390  NTDTP  IwflTQTR  T MT3T6(  BJ - 

1 8400  0605  C3MIXNU15 

18410:  

184  20  io9*KroT-oji(crM:8T«oiL:Tti:inpmc*«ciT-o 

1 84  30  NGTtC»Cg-0»LCTN:3*4-0l  VCI«c5r2*0fl(CBIlR88»0 
184  40  NTPtP’SX-0»  NOBr!l:8I»0nCI«CSrl»0?I,OOtlRIF»O 
_ 14411- 1 ON  11  UllMh  ? (6Xm»!/fl96t(ISMHXn».S) 

1 8460  NICD8C3T*IFIX(  (FLOAT (|XO«pO!/FlO»I(lSN8Xn«-.l) 

1 84  70  »TcB9C3r*XrZX(  (FL3U(«X|JlSR!/K06t(Z3MjlX) 

1 8480  l:IEC5?-9LCDPcST*6T{|B8CST 
1 84  90  KlF;PCST«xrzx(  (FLO AT (Rxrxr  1/4106 t(l8RAX) 

10500  M09FN:5T-LCTE:sT**tPlP:8I*i:R TUANS 

1 ft  s 1 PC. 

18520  DO  8610  H-1,MN 

10530  LCNI8*»S(N)-0  

1 0540  LCNCir(PI)»0 

18550  NO0FM:SI(«)«O  

18550  lCST4<.H)-0 

11570  _D£SX31p_V0 

18580  0C3T3*FLOAT(LXCSl3(Mi )/FLl|T(tS8»Xi*.5 
18590  LCNCST3(N)-irlX( OCSTJ) 

1 86  00  Lcr(1CST3-LCTMCST3*LCHC3T3{H) 

18610  levari  fN)-iFlx(  (FtO»T(LXC«ri(Nn/FLO|irflSNAxn*:5) 
1 06  20  icTNDSTI-LCTMCSTl  + LCNCSTKdJ 
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JjiojO 
1 9640 
1 9650 
1 9660 
1 9670 
1 9680 
_1_£6_90 
19700' 
1 97 1 0 
18720 
18730 
1 0740 
18750 
19T6  0 
18770 
18790 
18790 
1 9800 
— US.9  1 0_ 
1 8820 
18830 
1 8840 


_ l c « c. s r 2 ci) » i r i x ( tnokui  x_csr  2tn)  )/>ia  mfismi ) > » 1 s > _ 

LcTlT:?f2-iCTi1CSr2  + tCI1CST'2(M) 

LCST4(M)"LCMCST1 ( H ) nCMCS  J3  ( 1 ) ♦ICHOSl 2 < B ) 

icrncsT9«icrncsi9*icm<B) 

Lc-icsrcpn-LCMCsriCBUicHCixiMl 

LCXB:STsiI(CTl1CST»LCNC8T(H) 

_ lPlg  = STCM ) •irixun  OVXJJUf  XH«1)  /fLO»T(I8H9l))»:9)  

N6TiiC»cs  Tri)  ■rrxxTTf  to»r  ci ) V/rioAKisiux) )».  s r 

lCH«4»S(N)-ir IX C:<  FLO* r(  BKtRC9r|H|  »/FL0fct{XSN9X)  )*.5) 

iosrM;sx(  ri)  ■LCST4C  a)  *mpip:sK  1)*fl0tLCPCS{fn  *LC1II4«S(H) 

HTPXP:SS«HTPlPcSr^BFlF58t{HJ 

NSri:PCS»»OTI,CP:3*M3tlSFC8»(l) 

'8lT9  :TnTii»ub 

ioBrNrox»LCTticsri*MTpxpcsr4.iime*cs*icfirTii4> 

LSGliB4N*LCMTTR9»*lC»r*V»S 

lOBfgsr^o 

lOBFUOrwJOBFHTOT^aOiPUCIT 

acwiift. 

iioi^s  r*tCTncsruuciBs*r 

X3GlI<CPC*0|I!1PlPSSf»0 

IBGltOFC*N3TLCPCS 


18850 
18860: 
18870: 
1 8880 
1 9890 
1 8900 
18910 
18920 
1 8930 


1 8940 
. 18950 
18960 
18970 
1 8980 


briTi-i 


i3piPC5i53ipipcsr*>jPxP;si 


NGTOTRT-0»S3USEir*0>8GU8e2t*0|80tn2T«OinrPlir-0 

DO  §615  K«1#KU3I 

NGXQr8(K)*0 

NGUSB1T*N0USE1T*iauSBl(K) 

SUSE 


NgUSc2T-N3USE2T^|}GUSb2(K) 

NGr{J2tK)-IPIX((Pll04T(M|T2(K))/rtPAT(IS«4X))«-.5) 

NGT«2T*|(OXM2T«-N3tn2(X) 

MGri1UK)-IPIX((Pl,04X(8jT1UM/Fl-3v*(tSN4Xi)4.5) 

(JGTHir»SGrH1T*K3tIM(B) 


i-U’Mii  til ju  I'Pi-iifiiu  tmii  tii  m.iim 


19000  »GX0XlI#»8TOT8l*|®XOr*(K) 

19010  8815  ggllllgl  

190200 

19030  i*vgi»: 

1 90 40  30  TO  9993 

1 9 


19060: 

19070  9000  CONTINUE 

19090: 
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24.  Input  Data.  The  input  data  is  £ound  in  lines  19090 
through  21070.  It  is  divided  into  several  sections  and  each 
is  discussed  below. 

a.  Names  and  Indices.  This  section  names  each  module 
identified  in  the  program  and  each  part,  including  dummy 
parts,  that  are  used  in  the  output.  The  names  attempt  to 
correlate  the  actual  part  names  where  possible. 

b.  Actuarial,  Pipeline,  and  Cost  Data.  This  section 
assigns  values  where  necessary  to  compute  costs,  NRTS,  and 
pipeline  data  for  the  program.  The  Design  Maintenance 
Concept  is  the  source  for  most  of  the  actuarial  and  cost 
figures.  A Weibull  failure  rate  is  assumed  to  compute  the 
scale  ( JSCL)  and  shaping  (SHP)  parameters  for  the  parts. 

All  of  the  variables  should  be  defined  and  can  be  found  in 
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19090; 

igno; 

i9iio; 

* t * 4.7F100  * 25  |F|  79  * * * 

19120: 

19130: 

PA|T  NUMBERS  301,  302  MOVB0  f«0M 

ahe  external  to  pan  and  Skosi  no 

FAN  TO  ACC1  SINCE  THESE 

fas  removal,  irr  29JAN79 

1911*0: 

19150; 

• NJMIS  AND  INDIES  • 

13160 
_ 19-110- 

mom  n "DAT A 1 " 

EN3XNB  4 "riOOPNiOQtf m* 

19180 

19190 

MOOUUM)  - -700  AtfOHlNTOM 

- "100- 

% 

19200 
19210 
19220 
. 19210  - 

Mo°Uil(J)  ■ "300  far* 

loouum  - "4oo  cqri- 

MOOyiKS)  • "500  H F Tuna* 

module ( a ) ■ "600  tab  di  roi" 

19240 

1 9250 

MODULI ( 7 ) • "900  8BARB9X" 

MODULI  ( 1 ) • "900  ACC2  NOU- 

192602 

* * 
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19270 
19290 
1929 
19330 
19310 
1 9320 
19330 
19340 


PAasnj  - 
pa*U2)  - 


paRXO)  - 
pABX(5)  * 
PAR X<5)  ■ 

- 

paRX(?)  - 


’700  Att«»  DUBMlf 

’loo  acc i ouinr 


"in  a m oci* 

l»  > V ■ •• 


1 9360  PaRXMO) 
19370  PARXdU 
19390  PaRX()2) 
19390  P ARX ( 13) 
19430  PARK  14) 
134  10  park  ’>5) 
1 9420  PARK  16 ) 
1 9430  PA  RX ( 17) 
19440  PARX(IB) 
1945Q  PARILL91 
19460  PA  RX ( 20 ) 
19470  PARX(21) 


P 

19490  PARX(23) 
19530  PARX(2U) 
19510  PA«X(25) 
19520  PART ( 26 1 
19530  PARX(27 


19540  PARinej 

19550  PARK29) 
19560  PaRX ( 30 ) 
19570  PARX(31) 
19580  PARX(32) 
19590  PARX(33) 
19630  P A RK  34  ) 
19610  PARX( 35) 
19620  PaRX(36) 
19630  PA  RX ( 37 ) 
1 9640  P A R X ( ? 8 ) 

J153A_L 
19660  PAR 
1 9670  PA.R 
19690  PAR 
19690  PAR 
19730  PAR 
R 


19720  PARXi»6) 
19730  P A R X ( 4 7 ) 
19740  PARK48) 
19750  PaRX(49) 
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"301  Vifl" 

*302  vmi" 

"303  Pi*  DUHnX" 
*303  UT3  DISK* 
"304  28la  DlIK  " 

■ "305  3*18  DISK" 

■ "306  1SJ3  SHJ," 

■ -307  r*«x  seal* 
- "308  BIA*  SEAL* 

■ "309  BEIAtNEl" 

o 2Sro  Seal* 

■ "40o  :oaE  dumhx 

■ "401  nSJO  JSBAL" 

• "402  iSXO  BEAL* 

■ "403  15X3  AIM* 
> "434  78X3  SEAL" 

• "405  88X3  SEAL" 


■ "407  103X3  IE A l* 
• "408  iIEXj  SEAL" 

■ "409  l2SXg  seal- 

■ "410  13SX3  HU* 

■ "411  usro  DISK* 


■ ”412  38X3  DIE 
■"413  68X3  DISK" 

■ *414  "?sig  disk* 

■ "415  8 3 JO  DISK" 

■ "416  9SI3  DISK" 


"418  USX*  OXSK* 
"419  125X3  DISK* 
"420  135X3  0tS*» 
"421  BlAR  Sl{APT* 
"500  S»X  DIMM*" 


"602  »Sra  DISK 
"603  4SJO  DISK" 
"800  3B0X  DUHSir 
"900  |CCS  DIIHMI 


— ■ i ■ 


1 ? 770  JT  ( j ) •_  1 

19796  Jr  nr  i r 

19790  JF<3>  ■ 7 

198  00  JF(4)  ■ 16 

19810  J P ( 5 J * 38 
1 9820  J r(6)  ■ 4 4 

1 9830  JT(7  ■ 48  _ 

1 98 1*0  JF  ( 8 ^ ■ 49 
1 9850  JF  C 9 ) ■ 50 
19860: 

1 9870  0 - AcruAgiAL,  pipeline,  AND  cost  DMA  - 
19880; 

19890:  - - ENGINE  - - 
1990$: 

19910  BEN8X|PC  ■ 4.71  NDpC»T  • 1 58© 1 f tft>PXIl  • 42 

19920  BERKTH  *4.7;  NBsCSX  P 1 6 1 f Ng PIPE  • 4 

19930  NBT&srMK  ■ 12 J s|SLP  ■ 1700000;  NtECSt  ■ 50001  8HHC9T  ■ 

1994(5: 

19950:  • - 8U5HENT0R  - • 

19960: 

19970  dol f 1 1 » 1000009 
19980  P(1)  * 1.0 

19990  »LOC(  1 ) ■ 0,0 
20000  SH  P ( 11  ■ 2,0 

20010  JSCL(  1 ) ■ 974  

20020  SNRTSPCfl)  - ’T.lf  iDpCSTfll  * l7fT;  HOPIPE(I)  ■ 22 

20030  BRKFKtl)  - 1.09041  IBSCsTdJ  • 775jrtBPlPE ( 1 ) m 4 
20040  MSlp(l)  • 360000 


20050  (lTRCSrn)  « 2068/  MBSBPHH(  1 ) * 30 

20060: 

20070:  ■ - ACCESSORIES  1 gH*  Lift  

20080: 

20090  DA  rA(aoi;U)»I»2*  8 )/lQQ.500?i1  230, 1230.  1030,  1230/ 

20  1 00  DaTA(MI),I«2»6)/1.0.1.6,1:6,1.6#1.6/ 

20H0  DATA(HgC(I),I»2.6)/3*a.O/ 

20120  DAT*(SHS{I>,I-2.6)/2.0,4*i:0/ 

2^iaA,  P A XA C JSCLt I 1/5^990300/ 

7 0 1 uO  oat A ( JSLPfn .1-2. 6 1/20000,6 209. 9051. 3890 .82 8/ 

20150  8NRi;spcf2)  ■ 0.01  nopcsrt2l  - 6461  hdpipe(2>  - 4 

20  1 60  6hK|HM)  ■ 0.00031  HBICSP12)  ■ I46I  «BPIPE(2)  - 2 

20170  aSt»(3!  ■ 17428 

70180  ^T8CSr(2)  - 01  1BSBP«H(2)  • 23 

20190:  - 
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20200:  • - IHIET  FAN  - . 

20210:  __  

20220  DAX* ( MOX( I ),I»7»15)/1000000. 3400*3300. 3000. 5* 10000/ 

20230  emiPUUX  -7. 1S)/1. 0.8*2:20/ 

20240  DATA(UQC(I).I-7.15)/9*0.’0? 

_ 20250  jllU( 

20260  DAU(  J3CMI)  »I»7. 155/4333, 9*998000/ 

20270  P AU  ( J3Lp d ) , I»7. 1 5 ) /25QQ,  73 1 0. 8054, 53 1 6*  

20280 SI  84 9. 1 1 06,  1347,744.2043/ 

20290  BNRT5PSf3)  - 56, i;  BflfeSr  l 3L_-  1200i  BDUM11)  • 13 

20300  BRKfH  (3 } ■ 0.26321  HB8eSr(3>*  8391  NBPI»I(3}  « 4 

_2oiiQ iLg.fcp(3i_.%-iiia.fla 

20320  PJTRCST{3)  - 888;  1iS|*MHt3}  • 78 

203300  

20340:  - - CORE  - - 

20350;  ...  . 

2 0350  DATA (BOX (I),  1-1 6. 37  ) /1 300000.9400, 17500. 8200. 1 1 800. 5*5608. 

20370  32*15002.13  pop*  2 1 0 00 . 5503 . 750  3 . 1300 . 15»Q  k 140QQ . 1 85QQ . 1 3808 . 18800/ 

20380  DATA (R (I), I- 16. 37) /I. 0,21 *2. 20/ 

20390  DJLtS(UQC(X),I-16,j7}/22?0;0/ 

20400  0ATA(SHP(I) ,I«1 6.37) /2, 0.21*5.0/ 

20410  DATAfJSCLd)  # X"1 6. 311/12916*21*9900507.  

20420  DAH (;SLP(X) ,1-1 6,37) /»500; 10 93. 1210. 1424*1163. 

*»  3.41  Q.S.1 74lt.11.iaj.  3292, 3311.5366, 5283*4708, 3883«B134. 6764, 

0440S4449.8549, 4441, 8448, 4041, 8416, 9795/ 

20450  BNRXSPC{4)  - 85. Ql  WQf C»T ( « 2 -mil  HBPI2K4)  ■ li 

20460  BRKTHtU)  » 0',  0822»  HBleSr(4)  - 675 1 18PIPE(4)  * 8 

20470  NUfUt.JL  154200. 

20480  HT9qST(4)  « 2013;  B0SlfHH(4)  ■ 213 

_ 22010:.  . . . _ .... - _ 

20500:  • - HIGH  PRESSURE  TURBINE  A - 

20510;  

20520  DATA ( BOI(I), I"38.43) /I  000080,8100,980^.1 6 00,  1800.1800/ 

25530  DATi(a{X),1. 38, 43)/1. 0,5*2120/ _ 

20540  DAU(UOCd)  .I-38,43)/|*0,0/ 

.21534.-  PAULS  Mill . I«3B^4jl/lJk0,8»8.0^ 

2 0560  DaTA( JSCM I), I«38, 43) /1 8064, 5*690000/ 

20570  DATA_(3SfcPd),I»38,43)/6500,,14555,l9416t3M75,1077^8/ 

20580  BNRXSPC f5 ) - 70.01  HOPCSTfl)  * 1 SOf I MDPXPE(5)  ■ |9 

20590  BRKEH(.5j  - 0.058U  fjSjCsr  _*  855jL WBPX»8(5)  * 3 

20600  M8iP(5)  * 131028 

_216.ll BUCILIS.)  ■ 4231 flliimUl  « 158 1 

20620: 

256351  - - FA»  DRIVE  TU|Bi»l  fjf 

20640= 
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1 


1 


2 3510  PAU l 99X11)  • X*44.47J/la0Q9g9.  3390. 3000,  ?Q00Q/ 
23650  0AtI(*(X).I»tt41»7»/i;0,3*2:aa/ 

DHT&(UqC(n  tl  • 44.47  >/lt»0.fl/ 


20680  OArj(8H8(I),I-44.47)/2lO,3*5;0/ 

20650  DAtll JSGM I), I. 44, 47)/ |274; 3*910000/ 

2 3700  0aU(  JSlP(I),I-4  4,47)/nil?80  24.5502»Mj5l7/ 
20710  BNRX8PCf6)  > 53,03  WPSOSHS)  * J02OJ 

23720  BrK?H(6}  ■ 0.16821  WBgCSttSl  • S36| 

25710  _ _ __  fllLP ( 5 5 * 169009 

SDPXPE  ( 6 ) ■ 19 

HBPSPEf*)  p 5 

20740  MTRG*T(*>  * 1107jf 
207500' 

113 

20760:  - • 3«»|B0X  - - 

2077Q; 

20750  «OTf4?)  ■ 2000 

20790  *(4|)  p 1.6 

20800  »LOC(*8)  p 0,0 

20810  SHPfU?)  - 2.0 

208  20  JSCKM  1 - 5944 
20830  JSLP ( *8 ) . 684 

20840  BNRXSPCm  - 77.0 

I HDffiSrf?)  p 106l» 

MDPtPE ( 7 ^ p 16 

20850  BRKIHC7 } p 0.17851 

nasesrdl  - 259; 

ttSPmm  P 2 

20860 

nsi#(7)  • 21000 

2087Q  MT*CST(3>  p 200} 

Hes*t«nni  • i3 

208803 

20890;  • - ACCESSORIES  2 
20900; 

209  10  flOTf49}  ■ 1000008 

NlIijOUl  ixrjLtx*xfs  * - 

. 

20920  R(4f)  p 1,0 

20930  81,00(19}  p 0.0 

20940  SnPf49)  p 2,0 

209 50  0SCi(49)  p 338  ' 

20950  JSLfi ( 89  3 ■ 0 

20970  BN8X8PCC8)  - O.Of 

sde:«ks1  * 1 24  i 

KDPX»E{8}  ■ 9 

20980  BRK?H(.8)  ■ 3 . 1 4431 

SBsesrtay  - 9 t 

(1BPIPE  ( 8 ) > 1 

20990 

>isi,r e s y • o 

21000  fiT8Csr{8)  - o; 

1BSSPMH<8)  p 16 

2i0i0; 

21020; 

21030; 

_ — — 



21040  30  xo  8900 

21050  9999  310* 

21060  END 

2107031 EN0P°B 
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VII.  Program  Variables 


The  program  variables  used  in  OMENS  are  alphabetized  and 
listed  below  with  a brief  explanation  of  each  i mediately 
following  the  variable. 


ALOC(J)  - Weibull  location  parameter?  in  most  cases  this  parameter 
will  be  zero. 

AMONREM  - screen  interval  defined  in  equivalent  months 
of  life  remaining. 

BENRTSPC  - initial  base  engine  NRTS  percent. 

BERKFH  - initial  base  level  engine  removals  per  1000  flying  hours. 

BNRTSPC (M)  - base  level  initial  NRTS  percent  by  module. 

BOTTOM  - total  NRTS  alone  plus  total  NRTS  with  engine  plus  total 
base  removals  for  each  module. 

BRKFH(M)  - base  removals  per  .1000  flying  hours. 

DCONVR  - conversion  factor  for  changing  months  of  utilization 
into  daily  demand  rate. 

DEPPC(M)  - depot  level  removal  percent  by  module. 

DLCMDDR (M)  - depot  life  cycle  module  daily  demand  rate. 

EAFH  - engine  average  flying  hours. 

EANRTS  - engine  average  NRTS  rate. 

ELCBASE  - engine  life  cycle  base  removals. 

ELCDDR  - engine  life  cycle  daily  demand  rate. 

ELCNRTS  - engine  life  cycle  NRTS  removals. 

ENGINE  - name  of  engine. 

ENRTSPC  - engine  final  NRTS  percent  (output) . 

ENRTSPCT  - engine  seed  totals  NRTS  percent. 

EPIPEQTY  - engine  pipeline  quantity. 

ERKFH  - output  engine  removals  per  1000  flying  hours. 

ERKFHT  - engine  seed  total  removal  / 1000  FH. 

ERTSPC  - percent  engine  base  removals. 

FACMNRTS (M)  - final  life  cycle  NRTS  alone  (not  Rule 
of  X Policy)  by  module. 


116 


FACMRTS (M)  - final  life  cycle  base  removals  remaining 
at  base  by  module. 

FACNRTSW (M)  - final  life  cycle  Rule  of  X Policy  NRTS 
removals  by  module. 

FKFH(M)  - see  average  removals  per  1000  FH  by  module. 

FNRTS (M)  - see  average  NRTS  percent  by  module. 

FNRTSPC (M)  - final  NRTS  percent  by  module. 

FRKFH(M)  - base  final  removals  per  1000  flying  hours  by  module. 

FRKFHC (M)  - total  final  removals  per  1000  flying  hours  by 
module. 

FRKFHD(M)  - depot  final  removals  per  1000  flying  hours  by  module. 
FTIME  - time  in  hours  and  minutes  (in  clock  minutes) . 

I - a counter. 

IAOBGTOT  - seed  total  of  MOBFNCST (M) . 

ICLOCK  - clock  for  aging. 

IDCR  - integer  value  of  variable  DCONVR. 

ILCMCST  - engine  and  module  grand  total  maintenance 
costs. 

IMGTLCPC  - engine  and  module  grand  total  parts  costs. 

IMPIPCST  - grand  total  pipeline  costs  for  engine  and 
module. 

INDATA  - name  of  data  set  being  used  (internal  to  program) . 
IOBFNAX  - seeds  total  NGTOTRT. 

IOBFNTOT  - module  grand  total  maintenance,  pipeline, 
and  parts  costs. 

IP  - print  indicator;  long  run  - 0,  short  run  « 1. 

IPG  - page  number. 

IRPTPRD  - input  report  period  width. 


ISCRN  - screen  constant 


ISDRUN  - # of  seed  runs;  counts  up  to  ISMAX. 

ISIMPRD  - total  number  of  simulation  years  in  program 
run. 

ISIMYRS  - total  # of  simulation  years. 

ISMAX  - total  # of  seed  runs  done. 

ISSCRN  - integer  value  of  the  percent  of  MOT  screen. 

ITIME  - machine-supplied  time  during  program  run. 

IWS  - integer  working  storage  in  warmup. 

IXCST  - seed  total  of  ILCMCST. 

IXPART  - seed  total  of  IMGTLCPC. 

IXPIP  - seed  total  of  IMPIPCST. 

J - part  number. 

JF(N)  - number  of  first  part  in  Mth  module. 

JJ  - number  of  parts. 

JPART(J)  - removal  code  for  parts. 

JPMOT(J)  - maximum  operating  time  assigned  by  part. 

JSCL(J)  - Weibull  scale  parameter;  this  is  similar  to  an  actuarial 
life  expectancy. 

JSCR(J)  - screen  removal  for  part  J. 

JSCRT  - grand  total  parts  screened  removals. 

JSLP(J)  - stock  list  price  for  part  J. 

JTLCPCST ( J)  - total  life  cycle  parts  cost  for  each 
part. 

JTM(J)  - MOT  removal  for  part  J. 

JTMT  - grand  total  parts  max  time  removals. 


JTOL  - tolerance  Interval  constant. 

JTOLR(J)  - tolerance  removal  for  part  J. 

JTOLRT  - grand  total  parts  tolerance  removals. 

JTOTR(J)  - total  number  of  removals  for  part  J. 

JTOTRT  - grand  total  parts  removals  for  all  causes. 

JTPSCHD ( J)  - total  scheduled  part  removals  by  module 
for  the  entire  simulation  period. 

JTTF(J)  - time  til  failure  of  part  J. 

JTTL(J)  - time  til  life  limit  of  part  J. 

JUDEP(J)  - usage  screened  to  depot  removal  for  part  J. 

JUDEPT  - grand  total  parts  usage  screened  to  depot  removals. 

JUSE(J)  - usage  removal  for  part  J. 

JUSET  - grand  total  parts  usage  removals. 

K - report  period  counter. 

Kl  - report  period  time. 

K3  - time  remaining  this  report  period. 

KK  - # of  report  periods. 

KPI  - constant  or  percent  indicator. 

KLAST  - last  report  period. 

KPV(M)  - screen  for  modules  1 through  8. 

KS  - 0 implies  standard  seed,  1 implies  random. 

KW  - 1 implies  warmup,  0 implies  none. 

LCMCST(M)  - life  cycle  maintenance  cost,  both  depot  and  base, 
by  module. 

LCMCSTl (M)  - depot  life  cycle  maintenance  costs  of  modules 
returned  to  depot  alone. 
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LCMCST2 (M)  - base  life  cycle  maintenance  costs  by  module. 

LCMCST3 (M)  - depot  life  cycle  maintenance  costs  with 
Policy  by  module  for  modules  returned 
to  depot  with  engine. 

LCST4 (M)  - total  of  LCMCST(M)  and  LCMCST3 (M)  by  module. 

LCTECST  - life  cycle  total  engine  maintenance  cost  for 
depot  and  base. 

LCTMCST  - total  LCMCST(M)  for  all  modules. 

LCTMCSTl  - modular  totals  of  LCMCST1. 

LCTMCST 3 - modular  totals  for  all  LCMCST3 (M) . 

LCTMCST4  - total  of  LCST4 (M)  for  all  modules. 

LFCYC  - life  cycle  period  in  years. 

LTIME  - time  in  clock  seconds. 

LXCMST  - seed  total  life  cycle  maintenance  costs. 

LXCMST3  - seed  total  life  cycle  maintenance  costs  at  depot. 
LXCMST 4 - seed  totals  of  LXCMST  and  LXCMST4. 

LXCST (M)  - seed  total  life  cycle  maintenance  costs  by  module. 
LXCSTl(M)  - seed  totals  of  LCMCSTl(M). 

LXCST2 (M)  - seed  totals  of  LCMCST2(M). 

LXCST3 (M)  - seed  totals  of  LCMCST3(M). 

LXCST4 (M)  - seed  totals  of  LCMCST4 (M) . 

LXECST  - seed  total  engine  life  cycle  maintenance  cost. 

M - module  number,  used  as  counter  in  DO  loops. 

MASCR(M)  - seed  screened  totals  by  module. 

MASCRT  - seed  totals  for  screened  module. 

MATM(M)  - seed  time  totals  by  module. 
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MATMT  - seed  totals  for  module  time  removals. 

MAUD (M)  - seed  U-Dep  totals  by  module. 

MAUDT  - seed  totals  for  U-Dep  module  removals. 

MAUSE(M)  - seed  usage  totals  by  module. 

MAUSET  - seed  totals  for  usage  module  removals. 

MBPIPE CM ) - base  pipeline  in  days  by  module. 

MBSCST(M)  - module  base  maintenance  cost. 

MDPCST(M)  - module  depot  maintenance  cost. 

MDPIPE(M)  - depot  pipeline  in  days  by  module. 

MGTLCPCS (M)  - module  grand  total  life-cycle  parts  cost 
for  each  module. 

MINF  - minimum  JTTF(J). 

MINL  - minimum  JTTL(J). 

MJSCRT(M)  - total  JSCR(J)  for  all  J in  module  M. 

MJTMT(M)  - total  JTM(J)  for  all  J in  module  M. 

MJTOLRT (M)  - total  JTOLR(J)  for  all  J in  module  M. 

MJTOTRT(M)  - total  JTOTR(J)  for  all  J in  module  M. 

MJUDEPT (M)  - total  JUDEP(J)  for  all  J in  module  M. 

MJUSET(M)  - total  JUSE(J)  removals  for  all  J in  module  M. 
MM  - number  of  modules. 

MMC  - multiple  module  counter  for  engine. 

MMM  - module  counter. 

MNRTSWTH (M)  - total  Rule  of  X Policy  removals  by  module. 

MNRWTHTL  - total  MNRTSWTH (M)  removals  for  all  modules. 

MOBFNCST (M)  - total  LCST4 (M)  plus  MPIPCST(M)  plus 
MGTLCPCS (M)  for  each  module. 

MOD (M)  - module  removal  code. 
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MODSCR (M, K)  - total  modules  removed  due  to  screened  out  parts 
by  module  and  by  report  period. 

M0DTM1 ( M , K ) - total  time  module  removals  for  a single  scheduled 
part  by  report  period  and  by  module. 

M0DTM2 (M,K)  - total  time  module  removals  (for  at  least  one 

scheduled  part)  by  report  period  and  by  module. 

MODTOTR (M, K)  - total  module  removals  for  all  causes 
by  module  and  by  report  period. 

MODULE (M)  - name  of  module. 

M0DUSE1 (M , K)  - total  usage  module  removals  for  a single 
part  by  report  period  and  by  module. 

M0DUSE2 (M,  K)  - total  usage  module  removals  (for  more 
than  one  part)  by  report  period  and 
by  module. 

MONUTR  - monthly  utilization  rate  in  flying  hours. 

MOT ( J ) - input  life  limit  for  part  J in  either  TOT  or  cycles  as 
appropriate. 

MPC  - multiple  parts  counter  for  module. 

MPIPCST (M)  - total  pipeline  cost  per  module. 

MR3  - • of  "rule  of  3"  modules  with  removals. 

MRTS (M)  - module  base  removals  remaining  at  base. 

MRTST  - total  module  RTS  removals. 

MRULE  - X value  for  Rule  of  X Policy. 

MSCHNRTS (M)  - module  scheduled  NRTS. 

MSCHNRTT  - total  module  scheduled  NRTS. 

MSCR(M)  - module  screen. 

MSCRN(M)  - screen  interval  for  the  Mth  module. 

MSCRNRTS (M)  - module  screened  removals  by  module. 
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MSCRNRTT  - total  of  MSCRNRTS (M)  for  all  modules. 

MSCRT  - total  screened  modules. 

MSLP(M)  - stock  list  price  by  module. 

MTM(M)  - module  max  time  removal. 

MTMT  - total  of  module  max  time  removals. 

MTNRTS(M)  - total  NRTS  removals,  not  Rule  of  X Policy,  by 
module . 

MTNRTST  - total  MI NRTS (M)  for  all  modules. 

MTOTR(M)  - number  of  modules  removed  this  period. 

MTOTRT  - total  number  of  modules  removed. 

MTPIPCST  - total  MPIPCST (M)  for  all  modules. 

MTSCR(M)  - total  MODSCR(M,K)  by  module  for  all  report  periods. 

MTTMl(M)  - total  MODTMl (M,K)  by  module  for  all  report  periods 

MTTM2 (M)  - total  M0DTM2 (M,K)  by  module  for  all  report  periods. 

MTTOTR(M)  - total  MODTOTR(M,K)  removals  for  all  report  periods 
by  module. 

MTUSE1 (M)  - total  M0DUSE1 (M, K)  for  all  report  periods  by  module 
MTUSE2 (M)  - total  M0DUSE2 (M,K)  for  all  report  periods  by  module 
MUD (M)  - module  usage  to  depot  removal. 

MUDT  - total  MUD (M)  for  all  modules. 

MULTF  - counter  of  multiple  part  failures. 

MULTL  - counter  of  multiple  parts  scheduled. 

MUNRTS(M)  - usage  removals  by  module. 

MUNRTST  - total  MUNRTS (M)  for  all  modules. 

MUSE (M)  - module  usage  removals. 

MUSET  - total  MUSE (M)  for  all  modules. 


MUSNRTS (M)  - usage  screened  removals  by  module. 

MUSNRTST  - total  MUSNRTS (M)  for  all  modules. 

MXGPCS(M)  - seed  total  parts  costs  by  module. 

MXOKNRTS (M)  - by  module,  total  shipped  to  depot  as 
part  of  the  Rule  of  X Policy  but  not 
needing  repair. 

MXOKNRTT  - total  MXOKNRTS (M)  for  all  modules. 

MXPIP(M)  - seed  total  pipeline  costs  by  module. 

MXPIPT  - seed  total  pipeline  costs. 

MXSCHNRT (M)  - by  module,  scheduled  Rule  of  X Policy 
removals. 

MXSCHNTT  - total  MXSCHNRT (M)  removals  for  all  modules. 

MXSCRNRT (M)  - by  module,  screened  Rule  of  X Policy 
removals. 

MXSCRNTT  - total  MXSCRNRT (M)  for  all  modules. 

MX TOT  - seed  totals  for  module  removals  summary. 

MXTRAN  - seed  totals  for  transportation  costs. 

MXTRCST (M)  - seed  totals  by  module  for  transportation  costs. 
MXUNRTS (M)  - by  module,  total  usage  Rule  of  X removals. 

MXUNRTST  - total  MXUNRTS (M)  for  all  modules. 

MXUSNRTS (M)  - by  module,  total  usage-screen  Rule  of  X removals. 
MXUSNRTT  - total  MXUSNRTS (M)  for  all  modules. 

NBPIPE  - engine  base  pipeline  in  days. 

NBSCST  - base  engine  maintenance  cost. 

NDPCST  - engine  depot  maintenance  cost. 

NDPIPE  - engine  depot  pipeline  in  days. 
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NENGBASE  - engine  base  removals. 

NENGNRTS  - engine  base  removals  that  were  NRTS  as 
Rule  of  X Policy. 

NENGTOT  - engine  total  removals. 

NERC  - engine  removal  code. 

NGTLCPCS  - total  MGTLCPCS (M)  for  all  modules. 

NGTMl(K)  - engine  grand  total  single  module  removals  by 
report  period. 

NGTMlT  - total  of  NGTMl(K)  removals  for  all  report  periods. 

NGTM2(K)  - engine  removals  by  report  period  for  more  than  one 
module  with  at  least  one  scheduled  module. 

NGTM2T  - total  of  NGTM2 (K)  removals  for  all  K periods. 

NGTOTR(K)  - engine  total  removals;  all  causes  by  report  period. 

NGTOTRT  - grand  total  NGTOTR(K)  for  all  K periods. 

NGUSEl(K)  - engine  usage  removals  by  report  period  for 
a single  module. 

NGUSE1T  - total  engine  usage  removals  for  a single 
module. 

NGUSE2 (K)  - total  usage  engine  removals  by  report  period. 

NGUSE2T  - total  of  NGUSE2(K)  for  all  report  periods. 

NN  - number  of  entries  in  JF  array  (equals  MM+1) . 

NOBFNCST  - complete  engine  total  maintenance  and  pipeline 
costs. 

NSLP  - engine  stock  list  price. 

NTPIPCST  - engine  total  pipeline  cost. 

NXBASE  - engine  seed  totals  base  costs. 

NXBFN  - seeds  total  base  alone  maintenance  costs. 

NXDEPO  - engine  seed  totals  depot  costs. 
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NXPCST  - seeds  total  parts  costs. 

NXPIP  - engine  sedd  totals  pipeline  costs. 

NXTRAN  - engine  seed  totals  transportation  costs. 

PART ( J)  - name  of  Jth  part. 

* PIPEQTYM(M)  - pipeline  quantity  by  module. 

R(J)  - ratio  of  TOT  to  EFH  or  to  cycles  per  flying  hour. 

RFACTOR  - R factor  to  convert  ratios  to  engine  flying 
hours. 

RLCPSCHD ( J)  - total  scheduled  part  removals  by  module 
for  the  life  cycle. 

SCL(J)  - scale  parameter  for  Weibull. 

SOLE  - part  scale  parameter. 

SCRINEFH  - screen  converted  to  engine  flying  hours. 

SDTYP  - seed  type  (random  or  standard) . 

SEED  - random  number  seed. 

SIMYRS  - number  of  simulation  years  for  program  run. 

SHP(J)  - Weibull  shape  parameter  ( or  * 1)  1 implies  exponential; 
1 implies  removal  rates  which  increase  with  age. 

TOP  - total  NRTS  alone  plus  total  NRTS  with  engine  for  each 
module. 

TOTPC(M)  - total  percent  removals  for  cause  repaired  at  depot. 

TTF  - time  til  failure. 

XDATE  - calendar  date  by  month,  day,  and  year. 
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